Select Code to Download

GetOption(
    'd=s' => $opt_d, # d
...
    'v!' => $opt_v, # v:
    'c=s' => $opt_c, # c
)

GetOption( %h,#values in %h
    'd=s', # d
...
    'v!', # v:
    'c=s', # c
)

#!/usr/bin/perl --

use strict;
...
}
__END__