Select Code to Download

#!/usr/bin/perl -w
package a; # the caller package
...
$a->{stuff}='something';
$a->call(b);
__END__

$VAR1 = [
          bless( {
...
        ];
I've been called back!
And I have something