package sig_bla;
use strict;
use Data::Dumper;

$SIG{USR1} =  \&handle;

sub handle
{
    print "Got sig\n";
    for (0..5)
    {
	my (@ap) = caller ($_);
	last unless scalar @ap;
	print Dumper \@ap;
    }

    foreach my $entry (sort values %:: )
    {
	print "*" x 10, "Name: $entry Type: ";
	print "scalar is defined\t" if defined ${$entry};
	print "array  is defined\t" if defined @{$entry};
	print "hash   is defined\t" if defined %{$entry};
	print "sub    is defined\t" if defined &{$entry};
	print "\n";
    }
}

1;