Select Code to Download

{ my %_attr = {
       _attr1 => 'read',
       _attr2 => 'write',
...
$_attr{$attr} =~ /$mode/;
}
}

sub AUTOLOAD {
my ($self, $value) = @_;
...

die "No such method: $AUTOLOAD, $!";
}