#!/usr/bin/perl

use strict;
use warnings;

# (...) gekürzt ...

                # Ob's gemounted hat testen

                local *ISMOUNTED;

                my $mount_point_found = 0;
                
                # mount Befehl (/sbin/mount) ausführen -->
                # ergibt Liste
                my $mount_pid = open(ISMOUNTED, "$mount 2>&1 |");

                WHILE_ISMOUNTED:   while(<ISMOUNTED>) {

                                #
                                # Regex mit mountpoint z.B. 
                                # " /home/daten ".
                                # die \s habe ich angehängt damit nicht auch noch z.B. ("/home/datenXY") gefunden wird.

                                if ( /(\s$mount_point\s)/) {
                                        $mount_point_found = 1;
                                        last;
                                }
                        }
                close(ISMOUNTED);

                waitpid($mount_pid, 0);