use Win32::OLE;

$file = "M:\\poledit.exe";

$fso = Win32::OLE->new('Scripting.FileSystemObject') or die "Cannot open File System Object";
$companyname = $fso->GetFileName ($file);
$version = $fso->GetFileVersion ($file);
print $companyname, "\t", $version;