Given below is the code line from Locale.pm file
----------------------------------------------
package DateTime::Locale;
use strict;
use warnings;
use 5.006;
# Loading this here isn't necessary, but it makes it easier to catch
# syntax errors when testing.
use DateTime::Locale::Base;
use DateTime::Locale::Catalog;
use Params::Validate qw( validate validate_pos SCALAR );
----------------------------------------------------
And given below is the codeline from my application

use strict;
use Win32::OLE;
#use Win32::OLE::Variant;
use Win32::OLE::CrystalRuntime::Application;
# Produce a OLE Variant "FALSE" to pass to the Export method...
my $false = Variant(VT_BOOL,0);