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";