Select Code to Download

use strict;

...

my $res = some_func();
print $messages{ $res }, "\n";

use strict;

...
    no strict 'refs';
    print &$res(), "\n";
};