Select Code to Download

#!

use Cwd;
...
     };
print "Exiting!\n";
__END__

perl sighandler.pl
Starting while.
Waiting on read.
...
read error: Interrupted system call
Continuing while.
Exiting!