my (%args) = @_;
$args {hostname} = "XX.XXX.XXX.XXX";
$args {dm_user} = "username";
$args {password} = "password";
$args {protocol} = "2,1";
$args {debug} = "1";

my $ssh = Net::SSH::Perl->new($args {hostname}, %args);
$ssh -> login($args {dm_user}, $args {password});

$ssh -> shell;