#!/usr/bin/perl

use strict;
use warnings;

use Term::ReadLine;

my $term = Term::ReadLine->new('Tabtest');
my $prompt = "Test your tabs, guv: ";

if ($^O eq "MSWin32" || $^O eq "dos") {
    my $INPUT;
    open($INPUT, "<con")
        and $term->newTTY($INPUT, $term->OUT);
}

foreach my $command (qw[print hello echo foo bar baz]) {
    $term->addhistory($command);
}

while(defined(my $line = $term->readline($prompt))) {
        chomp $line;
        exit if($line eq "exit");
        print "I don't know how to '$line'\n";
        $term->addhistory($line);
}