Select Code to Download

 > perl -de 0
# ...
...
main::DESTROY( main=ARRAY(0x1c81a88) ):

 > exit

sub AUTOLOAD { print STDERR "$AUTOLOAD( @_ ): "; eval <STDIN> }