#!perl -w use strict; # shift to read @ARGV my $message = shift; read_files($message); # print all files on the command line to the screen # perl print_all3.pl "GenBank Gene file" pccx1.gb sub read_files { # shift to read @_ print "Message: ", shift, "\n"; while ( <> ) { print; } }