use Net::SSH::Perl;

my %ssh_params = ( protocol => "2,1",
                identity_files => ["/home/codejerk/.ssh/test_id_dsa"],
                options => [    "BatchMode yes",
                                "ConnectTimeout 3",
                                "StrictHostKeyChecking no"],
                debug => 'true'
        );