sub cmpVersions {
        my( $x, $y )= @_;
        for my $v (  $x, $y  ) {
            $v =~ s/(\d+)/ pack "N", $1 /ge;
        }
        return  $x cmp $y;
    }