sub hextoint {
        my $hex = shift;

        return sprintf ("%20d", hex($hex));
}