#!/usr/bin/perl -w

@files = glob '*.exe';

$latestname = '';
$latestver  = '';

foreach $f(@files) {
	if ($f =~ /.*(\d+\.\d+.*)\..*/) {
		if ($1 gt $latestver) {
			$latestver = $1;
			$latestname = $f;
		}
	}
}
if ($latestver) {
	open F,">latest";
	print F "$latestver\t$latestname\n";
	close F;
}