I hadn't tried that:

C:\>perl -MTerm::ReadLine -e"$t=Term::ReadLine->new('test'); 1 while (
+defined($t->readline(': ')))"
: ab
: ab
:
[download]

The first 'ab' was entered by typing the characters in. The second 'ab' was entered by hitting the up arrow.

Cheers,
Rob