#!/usr/bin/perl

$SIG{INT} = $SIG{HUP} = sub {};
exec 'perl', '-e', '$span=5; $span -= sleep $span while $span > 0;
                    warn "Sleep is done\n";'
    or die 'exec failed';