use strict;
use warnings;
use Net::SSH::Expect;

while (my $line = <>) {
   my ($s, $u, $p) = @_;
   print "Server $s hat ", myDF($s,$u,$p), "frei\n";
 }
 
 sub myDF {
   my ($server, $user, $passw) = @_;
   my $ssh = Net::SSH::Expect->new (
            host => $server, 
            password=> $passw, 
            user => $user, 
            raw_pty => 1
        );
 my $login_output = $ssh->login();
 
 my $df = $ssh->exec("df -h /");
 return $df;
}