examine-version.pl

use 5.010;
use strict;
use warnings;
use ExtUtils::MakeMaker;
use version;

my $file = shift @ARGV or die "Usage: $0 <file>\n";
my $version = version->parse( MM->parse_version( $file ) );
say "Found version $version";
say "Is dotted-decimal: " . ( $version->is_qv ? "yes" : "no" );
say "Normalized form: " . $version->normal;
say "Decimalized form: " . sprintf("%.6f", $version->numify);