if ( eof(<STDIN> ) {
    confess "No more socket?";
    $nodie = 0;  last;
}