#!perl -w use strict; my $message = shift @ARGV; read_files($message); # perl print_all4.pl "GenBank" pccx1.gb sub read_files { my ($message) = @_; # copies contents of @_ print "Message: $message\n"; while ( <> ) { print; } }