#!/usr/bin/perl
$perl_version = (sprintf ("%vd",$^V));
$module_found=0;
foreach $temp_path (@INC) {
if (-e "$temp_path/Error.pm") {
$module_found = 1;
}
}
if ($module_found == 0) {
$required_modules .= "Required module Error.pm not found!
";
}
print <
Plans system check
Plans System check
Perl version
Plans requires version 5.8 or higher.
Your version of perl is $perl_version.
Required Perl Modules
$required_modules
p1