#!perl
use Signal::StackTrace qw(INT);

sub f { g() }
sub g { sleep 10 }

f;