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