Select Code to Download

BEGIN {
    my $code= '...some work-around for not having GD...';
...
    eval "sub mySub { $code }; 1 "
      or die "$@";
}

package Pretend;
use base qw(Exporter);
...
sub sorter(&@);
sub hahser(\%);
#[...]

my $got_Pretend;
BEGIN {
...
    } else {
        @list= sort \&comparer worse_hasher(\%hash);
    }

    if(  $got_Pretend  ) {
        @list= sorter( sub { $_[0] <=> $_[1] }, &hasher(\%hash) );
    } else {
        @list= sort \&comparer worse_hasher(\%hash);
    }