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