#! perl -slw
use strict;

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

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

c();