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