$ perl -e 'for my $file (qw /pattern.pl line_count.pl /) {open my $IN, "<", $file or die $!; print while <$IN>; close $IN;}'