#!/usr/bin/perl
use strict;
use warnings;
use Net::SSH::Perl;
my ($host,$user,$pass)=('X','unbekannt','weissnicht');

# Verbindung aufbauen
my $ssh = Net::SSH::Perl->new($host);
$ssh->login($user, $pass);

# Befehl absetzen
my($daten, $fehler) = $ssh->cmd('/pfad/zum/script/read_db.pl');
die("SSH Fehler ($fehler)") if($fehler);
print "DATEN:\n$daten";

# eigendlich unnötig
# Verbindung schließen.
undef($ssh);