use strict;
use warnings;
use Term::ReadLine;

my ¤str = "foobar";
my ¤term = Term::ReadLine->new ('ReadLine Test');

¤usw :-)))))))