#!/usr/bin/perl
use strict;
 
my $hexnum= '00000000';
my $hexnum= $ARGV[0];
my $mfg=hex(substr($hexnum,0,2));
my $serno=hex(substr($hexnum,2,6));
if(length($hexnum) < 8) { &dec }
else { printf("\nDecimal:  %d %d\nHex:  %s\n\n",$mfg,$serno,$hexnum); }
 
sub dec {
 
my $decmfg= '00';
my $decserno= '00000000';
my $decmfg= $ARGV[0];
my $decserno= $ARGV[1];
  if(length($decmfg) < 3) {printf("Syntax:\n\Dec 000 00000000\nHex 00000000\n")}
 
   else {
    printf("\nDecimal:  %3d %8d\n",$decmfg,$decserno);
    printf("Hex:  %2X%6X\n\n",$decmfg,$decserno);
  }
}