#! c:/perl/bin/perl.exe -slw
$|++;
AUTOLOAD;
require 5.008;

use strict;
use warnings 'all';

use Win32;
use Win32::OLE;

my $fso = Win32::OLE->new( 'Scripting.FileSystemObject' );
Win32::OLE->Option( Warn => 0 );

my $file = $fso->GetFile("c:\\perl\\bin\\perl.exe");

for my $key (keys %{$file})
{
   print "$key : $file->{$key}\n";
}