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

    -k <value>    print kudos

EOPARAM

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

##</code><code>##

#!/usr/bin/perl
use Getopt::Declare;

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

    -v  <value> 
    -k  <value> 

EOPARAM

for ( qw(-v -k) )
{
    print  "Using value: ", $args->{$_}."\n"
        if $args->{$_};
}