Help for this page
INT GetFileVersionTxt(STRING sFile, out STRING sVersion)
#!usr/bin/perl use Win32::API; my $filename="C:/WINNT/ieuninst.exe"; $Api = new Win32::API(fileversion.dll, GetFileVersionTxt, [P,$filename +], [P,$output]); print "\output - $output";