#perl

use Net::SSH::Perl;

$identity = ".ssh/id_dsa";
$debug_level = 1;
$protocol = 1;
$host = "192.211.12.45";
$usr = "dm";

$args{identity_files} = [ $identity ];
$args{debug} = [ $debug_level ];
$args{protocol} = $protocol;

$ssh = Net::SSH::Perl->new( $host,
%args);

$ssh->login("$usr");