Help for this page
my $ver = $]*1000; # correct for possibile division problems print "\$]=$], \$ver=$ver\n"; # debug my ($major,$minor,$sub) = unpack("AA3xA3","$ver");
$]=5.008008, $ver=5008.008
$]=5.010000, $ver=5010 'x' outside of string in unpack at ./760220.pl line 10.