SPUG: Reg SSH Packet

[Reddy V, Ravinder (Ravinder)]

Hi All,

=======================
 #! /usr/bin/perl -w
use Net::SSH::Perl;
use Net::SSH::Perl::Packet;
use Net::SSH::Perl::Constants qw( :msg PROTOCOL_SSH1 );
use IO::Select;

eval {
    my $ssh = Net::SSH::Perl->new("135.254.251.56",port=>22);
    #my($stdout, $stderr, $exit) = $ssh->cmd("ls");
    my $pack = Net::SSH::Perl::Packet->new( $ssh, type => SSH_CMSG_USER ); 
    $pack->put_str("ls");
    $pack->send;
    $pack = Net::SSH::Perl::Packet->read_expect($ssh,2 );     
    print $pack->get_str;
    }; 
        if ($@) {
     print "$@";
        }
================================

 The above perl script should execute the command "ls" remote machine and
should display on the local shell. 
Can anyone please let me know what is the problem in the above script. 

regards,
ravinder