Check4Mount($archivepool);

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