Select Code to Download

#!/usr/bin/perl -w

...
{
  print "This is a line.\n";
}

$ strace -e read -f perl /tmp/t101 </etc/passwd
...
...
This is a line.
...
read(0, "", 12000)                      = 0