use strict;
use warnings;

if (my $pid = fork) {
    eval {
        local $SIG{ALRM} = sub{die "Timeout hit\n"};
        alarm 1;
        wait;
        alarm 0;
        1;
    } or do {
        print $@;
        kill 9, $pid;
    }
} else {
    magick_die();
    exit;
}


sub magick_die {
    my $var = 0;
    for (1 ... 1000000) {
        $var++ for 1 .. 1000000;
    }
}