Select Code to Download

#!/usr/bin/perl

...
exec 'perl', '-e', '$span=5; $span -= sleep $span while $span > 0;
                    warn "Sleep is done\n";'
    or die 'exec failed';