# Run on Win32 only

# file-version - displays the version of the file given or 'UNKNOWN' 

my ($file)=$ARGV[0];
use Win32::File::VersionInfo;
my $foo= GetFileVersionInfo ( $file);
if ($foo) {
	print $foo->{"FileVersion"},"\n";
} else {
	print "UNKNOWN\n";
}