my $host = "hostname";
my $pass = "passwort";
my $user = "benutzername";
my $ssh = Net::SSH::Perl->new($host, protocol => "1");
$ssh->login($user, $pass);