Koristim ActivePerl,a code je sledeci:
______________________________________________
use Net::Telnet;
$telnet = new Net::Telnet ( Timeout=>10,
Errmode=>'die');
$telnet->open('camel.perlfect.com');
$telnet->waitfor('/login: $/i');
$telnet->print('bilbo');
$telnet->waitfor('/password: $/i');
$telnet->print('baggins');
$telnet->waitfor('/\$ $/i');
$telnet->print('who');
$output = $telnet->waitfor('/\$ $/i');
print $output;
------------------------------------------------------------------------
A desava se ovo:
_________________________________________
D:\Perl\bin>perl telnet.pl
Can't locate Net/Telnet.pm in @INC (@INC contains: D:/Perl/lib D:/Perl/site/lib.) at telnet.pl line 1.
BEGIN failed--compilation aborted at telnet.pl line 1.
----------------------------------------------------------
Sta li moze biti problem? Napominjem da je sa Net::Ftp sasvim sve u redu,medjutim Net::Telnet zeza.
Ko mi pomogne bicu mu puno zahvalan...