#!/usr/bin/perl

sub dec2hex($) {
    my( $dec ) = shift;
    return sprintf("%lx ", $dec );
}

sub hex2dec($) {
    my( $hex ) = shift;
    return hex($hex);
}