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

    -k <value>    print kudos

EOPARAM

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