my %params = ( protocol => 1, debug => "true", interactive => "true" );
$ssh = Net::SSH::Perl->new($serverName, %params);
$ssh->login($user, $pass);
$ssh->cmd("blah");