$SIG{INT} = sub { die "borked on $var"; };

alarm(1);

while(1) {
  my $var = "wibble";
}

alarm(0);