my $ssh = Net::SSH::Perl->new( "host", 
                                   debug => 1,
                                   options => [
                                                 "ConnectTimeout 30", 
                                                 "LogLevel Debug3",
                                                 "ServerAliveInterval 10",
                                                 "ServerAliveCountMax 5",
                                               ],
              );