#!/usr/local/perl/bin/perl -w 
$| = 1;

push @$x, abc();

sub abc {
$x = 1;
}

$SIG{'SEGV'} = '_my_sig_handler';

sub _my_sig_handler{
print "here";
exit(1);
}