Select Code to Download

#!/usr/bin/perl
use IO::Socket;
...
{
        print "SIGNAL HANDLER\n";
}

#!/usr/bin/perl

...
   print "DISPATCHING SIGNAL\n";
   kill(SIGUSR1, $ppid);
}