Select Code to Download

{
    my %opt;
...
    sub opt_f { exists $opt{f} ? 1 : 0 }
    sub opt_d { exists $opt{d} ? 1 : 0 }
}

{
    my %opt;
...
   ...
}
# usw, etc.