12 - Devel::Trace

perl -d:Trace code.pl
print "Statement 1 at line 4\n";
print "Statement 2 at line 5\n";
print "Call to sub x returns ", &x(), " at line 6.\n";
exit 0;
        
sub x {
    print "In sub x at line 12.\n";
    return 13;
}



>> ./test:4: print "Statement 1 at line 4\n";
>> ./test:5: print "Statement 2 at line 5\n";
>> ./test:6: print "Call to sub x returns ", &x(), " at line 6.\n";
>> ./test:12:   print "In sub x at line 12.\n";
>> ./test:13:   return 13;
>> ./test:8: exit 0;