Select Code to Download

#!/perl
use strict;
...

something::todo(arg1,arg2);
diffrent::todo(arg3,arg4);

package something;
@something::ISA=qw(basePack);
...
my $diffrent = new diffrent;
$something->act($arg1, $arg2);  #something::todo;
$diffrent->act($arg3,$arg4);    #diffrent::todo;