gistfile1.txt

se v6;

# parse cmdline opts and run tardis


while (my $cmd = prompt '> ') {

    given $cmd {

        when /look/     { say 'look...' }
        when /step/     { say 'step...' }
        when /n/        { say 'n...' }
        when /go (\d+)/ { say 'go $1' }
        when /quit/     { exit }

    }
}