#!/usr/bin/perl -w use strict; @ARGV = qw(file1.dat file2.dat file3.dat); while (<>) { print "text read: $_"; }