use strict;
use warnings;

print $ARGV[0], "\n";    #printed
while (<>) {
    print "$ARGV\n";     #can be printed
}
[download]

PerlMonks lovingly hand-crafted by Tim Vroom.
PerlMonks somehow became entangled with The Perl Foundation.
Marvelous Managed Hosting and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.