Select Code to Download

my $args = new Getopt::Declare <<'EOPARAM';

...
{
    print  "Using value: ", $args->{'-k'}."\n";
}

#!/usr/bin/perl
use Getopt::Declare;
...
    print  "Using value: ", $args->{$_}."\n"
        if $args->{$_};
}