#!/usr/bin/perl use strict; use warnings; use 5.010; system('cls'); require Net::SSH::Perl; my %params = (protocol => 2); my $ssh = Net::SSH::Perl->new('server .com',%params); $ssh->login('user','pw'); my ($out,$err,$exit); ($out,$err,$exit) = $ssh->cmd('cd /www/verz'); say '-' x 80; say __LINE__; say "\$out = '$out'"; say "\$err = '$err'"; say "\$exit = '$exit'"; ($out,$err,$exit) = $ssh->cmd('dir'); say '-' x 80; say __LINE__; say "\$out = '$out'"; say "\$err = '$err'"; say "\$exit = '$exit'";