#!perl -w use strict; # print all files on the command line to the screen # perl print_all.pl pccx1.gb library.gb while ( <> ) { print; }