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

f();
print "After f()\n";

sub f { g(); }
sub g
{
    sleep 5;
    print "In g(), after sleep\n";
}