#!/usr/bin/perl

$| = 1; # make output unbuffered

prompt();

while(<STDIN>) {     # read 1 line...
    eval $_;         # ...doit...
    warn $@ if $@;   # ...complain if error
    prompt();        # ...and print prompt;
} 

sub prompt { print "\n;# perl > " }

__END__

##</code><code>##

$telnet->cmd('perl perlshell.pl');

##</code><code>##

print $telnet->cmd('print scalar localtime(time)');

Thu Jun 29 15:58:52 2006

print $telnet->cmd('print $^X');

/usr/bin/perl