Select Code to Download

while(1) {
    if (eof(STDIN)) {
...
    print;
    print '$ ';
}

#!/usr/bin/perl -w
#
...
close $in;
like(<$out>,qr/END/,"EOF in Input");
waitpid($pid, 0);