Select Code to Download

#!/usr/bin/perl
use strict;
...
    defined(my $coderef = shift) or die "no code ref";
    return "whatever";
}