Can't really help you about tab completion. You could read in the keypresses chararcter by character and write your own parser. But i guess this should already be a solved problem.

A workaround would be to use Term::Readline. You could - for example - prepolulate the history. Something like this:

#!/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);
}
[download]

Not quite what you wanted, i know, but i'm also fresh out of ideas.