while (<>) { print "Reading from: $ARGV, Writing to: $???\n"; }