Select Code to Download

eval {

...
}

-- first.pl -- 
#!/usr/bin/perl
...
        print "alive\n";
        sleep(1);
}

darkstar:~>./first.pl 
alive
...
alive
I timed out
darkstar:~>