Select Code to Download

my %commands =
  (
...

my $cmd = 'command1';
$commands{$cmd}{function}($param)

my $func = \&version1;
is($func($param), 0, 'makes sense');
...
sub version1{[some code]}

sub version2{[some code]}