Help for this page

Select Code to Download


  1. or download this
    my (%args) = @_;
    $args {hostname} = "XX.XXX.XXX.XXX";
    ...
    $ssh -> login($args {dm_user}, $args {password});
    
    $ssh -> shell;
    
  2. or download this
    # my ($stdout, $stderr, $exit) = $test_hash {ssh_session} -> cmd ($cmd
    +);
    
  3. or download this
    Received disconnect message:
    Switch: SCP command not recognized.
    
     at /usr/lib/perl5/site_perl/5.8.0/Net/SSH/Perl/SSH1.pm line 369