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;


##</code><code>##

# my ($stdout, $stderr, $exit) = $test_hash {ssh_session} -> cmd ($cmd);


##</code><code>##

Received disconnect message:
Switch: SCP command not recognized.

 at /usr/lib/perl5/site_perl/5.8.0/Net/SSH/Perl/SSH1.pm line 369