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