Select Code to Download

BEGIN {
    my @methods = qw/status deadline chasedate/;
...
        *$method = sub { return $_[0]->{$method} };
    }
}