#! perl -slw
use strict;

sub segfault {
    my $x = unpack 'P', \ "";
}

sub a { segfault(); }
sub b { a(); }
sub c{ b(); }

c();

##</code><code>##

C:\test>perl -d:CallTrace junk.pl
 Devel::CallTrace::import (c:/perl64/site/lib/Devel/CallTrace.pm:75-78)
 CODE(0x276280)
 CODE(0x2762f8)
  strict::import (c:/perl64/lib/strict.pm:34-37)
 main::c (junk.pl:10-10)
  main::b (junk.pl:9-9)
   main::a (junk.pl:8-8)
    main::segfault (junk.pl:4-6)