http://www.perlmonks.org?node_id=63620

dmckee has asked for the wisdom of the Perl Monks concerning the following question:

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...