use warnings;
use strict;
use Config;
use Data::Dumper;
my (%signo, @signame, $i);
$i = 0;
defined $Config{sig_name} || die "No sigs?";
foreach my $name (split(' ', $Config{sig_name})) {
    $signo{$name} = $i;
    $signame[$i] = $name;
    $i++;
}

print Dumper(\@signame);
sub sighandler {
    print "sighandler called\n";
}
$SIG{BREAK} = \&sighandler;
sub s1 {
    kill("BREAK", $$);
}
s1();
sleep 1;
print "after sleep\n";
exit;