Select Code to Download

    my $token = 'do_' . lc NextWord (\$line);
    
...
        if ! $self->can ($token);

    return $self->$token ($line);

sub do_hi {
    return "Hello World";
}