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

use strict;
use warnings 'all';

use Win32;
use Win32::OLE;
use Win32::OLE::Variant;

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})
{
   if ( $key eq 'Drive')
   {
      for (keys %{$key->{'Drive'}})
      {
         print "$_ \n";
      }      
   }
   elsif ($key eq 'ParentFolder')
   {
      for (keys %{$key->{ParentFolder}})
      {
         print "$_ \n";
      }      
   }
   else
   {
      print "$key : $file->{$key}\n";
   }  
}