我想通过linux机器上的perl运行window cmd命令

#!/usr/bin/perl

use Net::Telnet;

$telnet = new Net::Telnet ( Timeout=>10,Errmode=>'die');
$telnet->open('hostname.domainname');
print "opened ...\n";
$telnet->waitfor('/login: $/i');
$telnet->print('pjpandey');
print "enetered username ...\n";
$telnet->waitfor('/password: $/i');
$telnet->print('pjp2213');
#!/usr/bin/perl

use Net::Telnet;

$telnet = ne