Select Code to Download

package A;
use Data::Dumper;
...
use strict;
use base 'A';
print Dumper([1]);

sub AUTOLOAD {
...
    croak("Invalid method $method");
}