my %params = ( protocol => "2", debug => "true", use_pty => 0 );

print "entering Net:SSH:Perl->new command\n";
$ssh = Net::SSH::Perl->new($serverName, %params);

print "entering SSH->login command\n";
$ssh->login($user, $pass);

print "executing cmd\n";
($out,$err,$exit) = $ssh->cmd("/home/bfdi533/pna_switch.pl $pna_swid $pna_mode");

print "*****\n";
print "results:\n$out\n";