I've had a quick play with Net::telnet and have got the following program working -
#!/bin/usr/perl -w
use strict;
use Net::Telnet ();
my $mud = new Net::Telnet;
$mud->open(Host=>"furry.org",Port=>"8888",Timeout=>"10");
$mud->waitfor('/Welcome/'); #wait for a reply
$mud->print('connect darrenlupus censoredpassword'); #login
$mud->print('morph wolf'); #send a command
$mud->print('QUIT'); #let the other side disconnect gracefully
which is about as simple as it can get. It's all working correctly, and even correctly quits at the end, but I get a
Argument "" isn't numeric in numeric gt (>) at D:/Perl/site/lib/Net/Telnet.pm line 2569. error. Am I doing something wrong?
Debugging info: ActiveState Perl (Win32), downloaded Net::Telnet using ppm...