eval example

gistfile1.pl

package My::Thing;
use strict;

BEGIN {
    $INC{'My/Thing.pm'} = __FILE__;
}

sub import {
    my $caller = caller;
    eval <<"    EOT" || die $@;
        package $caller;
        print "Caller: \$caller\n";
        use vars qw/\@foo \$bar/;
    EOT
}

package consumer;
use strict;

use My::Thing;

$bar = "This is sparta!";

print("Bar: $bar\n");

1;