ok ... here my code

my $lpBuffer = " " x 60;
my $lpSize = '60';
      
my $api = new Win32::API($wimdll, "GetInformation", ['N','P','P'], 'N'
+);
$api->Call($fiehandle,$lpBuffer,$lpSize)or die "$^E";
[download]

Thanks