use strict;
use warnings;

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