Select Code to Download

#!/usr/bin/perl

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

__END__

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

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

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

/usr/bin/perl