Select Code to Download

#!/usr/bin/perl -w
use strict;
...
__END__
AutoReloader=CODE(0x8337994)
AutoReloader

sub { print __PACKAGE__ }

my ($class,$file,$h,$load,$package);
$class = '';
...
                   goto ${$$h{'inner'};};
                 }, 'AutoReloader' );
$h->{outer} = $AutoReloader1;