#! /usr/bin/perl

use strict;
use warnings;

my $modul = 'CGI';
my ($status,$vers) = FindPerlModule($modul);
print $modul," ",$vers," -> ",$status,"\n";

sub FindPerlModule
{
  my ($Modul) = @_;
  my ($ModulStatus,$vers);
  if(eval("require $Modul")){
    $vers = ${Modul}->VERSION || 0;
    $ModulStatus = "OK";
  }
  else{
    $vers = 0;
    $ModulStatus = "NOT INSTALLED";
  }
  return ($ModulStatus,$vers);
}