Microsoft Windows [Version 6.0.6001]
Copyright (c) 2006 Microsoft Corporation.  All rights reserved.

c:\>perl
use Term::ReadLine;

my $cli = Term::ReadLine->new;

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

my $line1 = $cli->readline;
my $line2 = $cli->readline; # hit up arrow for line1 history

use Data::Dumper;
print Dumper $line1, $line2;
^Z
INPUT> print Dumper $line1, $line2;


##</code><code>##

Microsoft Windows [Version 6.0.6001]
Copyright (c) 2006 Microsoft Corporation.  All rights reserved.

c:\>perl
=comment
use Term::ReadLine;

my $cli = Term::ReadLine->new;

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

my $line1 = $cli->readline;
my $line2 = $cli->readline; # hit up arrow for line1 history

use Data::Dumper;
print Dumper $line1, $line2;
=cut

printf "PROMPT> "; <STDIN>;
^Z
PROMPT> my $line2 = $cli->readline; # hit up arrow for line1 history