#!/usr/bin/perl
my $version_str = $^V;
my ($version_number) = $version_str =~ /(\d+\.\d+\.\d+)/;
print $version_number;
exit;