#!/usr/bin/perl

use Net::SSH::Perl;

my $host = "hostname";
my $usr = "my userid";
my $pwd = "my password";
my $ssh = Net::SSH::Perl->new($host);
$ssh->login($usr,$pwd);
my($stdout, $stderr, $exit) = $ssh->cmd("ls -l /home/$usr");