sub FindPerlModule
{
my ($Modul) = @_;
my $ModulStatus = "";
$ModulStatus = (eval "require $Modul" ? "OK" : "NOT INSTALLED");
return $ModulStatus;
}