#!/usr/bin/perl

package mymodule;

use Data::Dumper;

my @caller = caller;
print Dumper ( @caller );

print "Execute this\n" unless caller;

1;