view release on metacpan or  search on metacpan

bin/rcmd  view on Meta::CPAN

  -l        list built-in commands and exit
  -h        print help and exit
EOF

# print help and exit
if ($h) {
    print "$desc\n$usage";
    exit;
}

my $private_key_path = $k || "";

# put built-in commands into a hash
my %Builtins;
while (<DATA>) {
    my ($name, $cmd) = split ' ', $_, 2;
    next unless $name; # skip empty lines in data
    $Builtins{$name} = $cmd;
}

# list built-in commands and exit