i am wroking in win32

i have given code like this

use Net::SSH::W32Perl;
my $ssh = new Net::SSH::W32Perl($host);
$ssh->login($user, $pass);
my ($out, $err, $exit) = $ssh->cmd('ls -lrt');
print "$out, $err, $exit";
[download]

while iam running perl ssh.pl. it is keep on going ,it won't give any out put

20060704 Janitored by Corion: Moved normal text out of code tags, added formatting, as per Writeup Formatting Tips