my ($action, $type, $foo, (other variables));

my $name = $0;
$name =~ s~.*/~~;
my ($verb, $object) = split /-/, $name;

$action = $verb;

# Case statement for defaults for verb.

# Case statement for defaults for object.

# Case statement for defaults for name (combines verb + object)

GetOptions(
    "action=s" => \$action,
    "type=s" => \$type,
    "foo=i" => \$foo,
    ...
);

and more program

##</code><code>##

given($object) {
    when ("tap") {$type = "domestic"}
    ....
}