Select Code to Download

#!/usr/bin/perl -w                                                  
                        
...
        }
        $SIG{CHLD} = \&REAPER;  # still loathe sysV
}

#!/usr/bin/env perl
use strict;
...
while ( <$remote> ) { print;last; }
close $remote;
print "Socket gone, exiting\n";

Parent 28877: Server up
Parent 28877 after forking
...
Child 28949: Sent READY, closing
Parent 28877: Reaped 28949
Parent 28877: Should never get here

use Win32::Console::ANSI;
$|=1;
...
  print "\e[s$_";    # store pos, print output
  sleep 3;
}