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

    -k <value>

EOPARAM

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