Select Code to Download

sub AUTOLOAD {
    my ($self) = @_;
...
        or die "No such attribute: $1";
    return $self->{$1}
}