sub exec_cmd {
        my ($paramref) = @_;
        my %params   = %$paramref;
        my $server   = $params{'hostlist'};
        my $command  = $params{'command'};
        my $send2all = $params{'allhosts'};
        my $output   = '';
        if (( $command =~ m/^rm/ ) or ( $command =~ m/^ping/ ) or ( $command =~ m/^login/ ) or ( $command =~ m/^ftp/ ) or ( $command =~ m/^telnet/ ) or ( $command =~ m/^rsh/ )) {
               
 die "Command $command ist nicht erlaubt!";
        }
        if ($send2all eq "send2all") {
               
 unlink($error);
               
 foreach (@hostlist) {
               
         chomp;
               
         $output .= $_ . "<br />\n" . (ssh_connect($_, $command));
               
         if ((ssh_connect($_, $command)) eq "<br><hr>") {
               
               
  open(ERRORFILE,">>$error") || die "Kann $error nicht oeffnen!";
               
               
  our $errormsg = '1';
               
               
  print ERRORFILE ("<font color=\"FF0000\">Warnung:</font> Kann mich nicht auf <b>$_</b> einloggen.<br>\n");
               
         }
               
 }
        } else {
               
 chomp $server;
               
 $output = $server . '<br />' . ssh_connect($server, $command);
        }
        if ($errormsg == '1') {
               
 print ("<;script type=\"text/javascript\"> F1 = window.open(\"$error_rel\", \"Fenster1\", \"width=350,height=400,left=0,top=0\"\)\;</script>\n");
               
 close(ERRORFILE);
        }
        return $output;
        unlink($error);
}