Select Code to Download

#!/usr/bin/perl
# untested:
...
}
while (<>) { ; }; # just discard input until EOF
kill KILL => $pid;