Select Code to Download

{
    local $SIG{HUP} = 'IGNORE';
    kill HUP => -$$;
}

#!/opt/perl/bin/perl
use 5.012;
...
}

say "A end";

#!/opt/perl/bin/perl
use 5.012;
...
sleep 30;

say "  B end";

#!/opt/perl/bin/perl
use 5.012;
...
say "    C start";
sleep 30;
say "    C exit";

$ ./a.pl
A start
...
A waiting for lost children
A reaped child 20683
A end