Select Code to Download

package Default;
use strict;
...
}

1;

package Upper;

...
}

1;

#!/usr/bin/perl -w
use strict;
...
my $ref = $handlers{$arg} || $handlers{'default'};

print $ref->handle("AaAaAaAa"), "\n";