Select Code to Download

my $retval = eval $source;
warn $retval->package; # prints package of evaluated # source

my $code = join( '', <$fh> );
    close( $fh );
...
    my $package = ($code =~ /^\s*package\s+([\w:]+);/m)[0];