Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
while (<>)
...
    print "Pipe process got $_";
    exit(0) if ( $. == 5 );
}

Select or download this

#!/usr/bin/perl
use strict;
...
{
   $deadPipe++;
}