#!/usr/bin/perl
# vi:ts=4 sw=4 et:
use strict;
use warnings;
use Net::SSH::Perl;

#> global variables
#> ----------------------------------------------------------------------------

my $ssh = Net::SSH::Perl->new( '127.0.0.1', debug => 0 );


#> main script
#> ----------------------------------------------------------------------------

# hier muss etas der Art "Kontrolle: Net::SSH::Perl" ausgegeben werden
# (der Modulname kann variieren, sollte aber egtl. Net::SSH::Perl beinhalten)
printf "Kontrolle: %s\n", ref( $ssh );

# hier korrekte Userdaten angeben, sonst gibt's "Permission Denied"!
$ssh->login( 'user', 'pass' );

my ( $out, $err, $rc ) = $ssh->cmd("/bin/ls -l");

$err = '' if !defined $err;

print <<RESULTAT;
EXITCODE: $rc

ERROR:
$err
OUTPUT:
$out

RESULTAT

__END__