my $NAS_IP = '192.168.7.99'; #!!!! IP für NAS  anpassen! !!!!!
my $host_IP = '10.1.1.1';               #!!!! IP für Host anpassen! !!!!!

my $cmd = 'shutdown -h now';

use Net::SSH::Perl;

# -----------------------------------------
# Login for NAS
my $host = $NAS_IP;
my $user = 'root';
my $pass = 'myVerrYSikrietPaSs';        #!!!! Passwort für Root auf NAS !!!!

# Shutdown NAS with SSH
my $ssh = Net::SSH::Perl->new($host);
$ssh->login($user, $pass) or die "Cant login on $host: $!";
$ssh->cmd($cmd);

# -----------------------------------------
# Login for host
$host = $host_IP;
$user = 'root';
$pass = 'RuthPatzWoert';               #!!!! Passwort für Root auf HOST !!!!

# Shutdown host with SSH
$ssh = Net::SSH::Perl->new($host);
$ssh->login($user, $pass) or die "Cant login on $host: $!";
$ssh->cmd($cmd);