#!/usr/bin/perl

my $version = join(' ',`perl -v`);
if ($version =~ /\(v([0-9]+)\.([0-9]+).([0-9]+)\)/) {
	print $1.'.'.$2."\n"
}
