Select Code to Download

{
    package Medusa; # Fatal to look at
...
    $@ = '';
    $timed_out = 1;
};

sub do_work {
    eval {
...
    };
}
my $seconds = 2;