#!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";
}

##</code><code>##

13:05 >perl 1052_SoPW.pl
INT at 1052_SoPW.pl line 13.
        eval {...} called at 1052_SoPW.pl line 13
        main::g() called at 1052_SoPW.pl line 9
        main::f() called at 1052_SoPW.pl line 6
In g(), after sleep
After f()

13:05 >

##</code><code>##

13:05 >perl 1052_SoPW.pl
INT at 1052_SoPW.pl line 7.
        eval {...} called at 1052_SoPW.pl line 7
After f()

13:07 >