LINE: while (defined($_ = <ARGV>)) {
    @_ = $_;
}
sub BEGIN {
    foreach $_ (%main::) {
        eval '@{$_}=${@_}';
    }
}
{
    print "Just another perl hacker.\n" unless eval "@_";
}

##</code><code>##

Can't locate Term/ReadLine.pm in @INC (@INC contains: )