Select Code to Download

sub ProcessPing 
{
...
        }
    }
}

sub int_handler
{        #Only called by the child.
...
        my $signal = shift;
        die "Caught the signal, Exiting!!!\n";
}