--------------------------script---------------
#!/usr/bin/perl
use warnings;
use strict;

use Win32::OLE;

my $WMIServices;
my $Namespace = "\\root\\cimv2";
my $Machine = ".";
my @files;
my $strdate = "20031102000000.000000+000";
my $query = "Select * From CIM_DataFile Where CreationDate < '$strdate' and drive = 'C:'";
print $query . "\n";
my $object = "winmgmts:\\\\$Machine$Namespace";
print $object . "\n";

$WMIServices = Win32::OLE->GetObject("$object");

@files = $WMIServices->ExecQuery("$query");
 
foreach (@files) {
	print "$_\n";
}