#!/usr/bin/perl

use strict;
use warnings;

use Net::SSH2;

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

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