#!c:/perl/bin;
use File::Find;
use strict;
use warnings;
my $datetimeflag;
foreach my $dir (@INC){
my $datetime='C:/Perl/site/lib/DateTime.pm'; 
find (sub {
if( $datetime eq "$File::Find::name" ){
   print " Module $File::Find::name is found\n" ;
   $datetimeflag=1;
}				
},$dir);
}
if(!$datetimeflag){
		print"Module DateTime is not Installed\n";
} 

##</code><code>##

C:\Perl\bin>onemod.exe
Can't stat CODE(0xcea854): No such file or directory
 at script/onemod.pl line 15
Module DateTime is not Installed