Select Code to Download

getopts("hf:d:") || die HELP();

...
{
  HELP();
}

  use vars qw/$opt_h $opt_f $opt_d/;

{
    my %opt;
...
if( opt_j ) { # compile time error
    ...
}

    sub opt_f {
        if( not exists $opt{f} ) {
...
            $opt{f}
        }
    }

  (my $new = $old) =~ s/foo/bar/;