#!/usr/bin/perl -U -w

$syst=mount();
print $syst;
##-------------------------------------------------------------------------

sub mount {
        my $syst = system "mount | grep /home";
                        return ( $syst/256 );
                                        }

##-------------------------------------------------------------------------

Check4Mount($archivepool);

sub Check4Mount {
     my $rc = (grep /$_[0]/, `mount`) ? 1 : 0;
       if ($rc==0) { print " Mount $_[0] existiert nicht!\n";};
       exit;       
}