my $ver = $]*1000; # correct for possibile division problems 
print "\$]=$], \$ver=$ver\n";  # debug
my ($major,$minor,$sub) = unpack("AA3xA3","$ver");