And another reason to prefer Net::SSH2 ...

#!/usr/bin/perl

use strict;
use warnings;

use Net::SSH2;

my $ssh2 = Net::SSH2->new();

$ssh2->connect( 'webdev', 3479 ) or die;
...
[download]