Using Net::SSH::Perl (and not rsh !!)

#!/usr/bin/perl -w
use Net::SSH::Perl;
use strict;

my $user = ""; #Fill me in
my $pass = ""; #Fill me in
my $ssh = Net::SSH::Perl->new($host);
$ssh->login($user, $pass);
my($stdout, $stderr, $exit) = $ssh->cmd("ls -alp");
[download]

Greetz
Beatnik
... Quidquid perl dictum sit, altum viditur.