#!/usr/bin/perl

use Data::Dumper;
use strict;

my $divesub = \&somesub;
my $raisesub = \&somesub;

&{$divesub};

sub somesub {
    print STDERR Data::Dumper::Dumper( caller(0) );
}