#!/usr/bin/perl 
#!/usr/local/bin/perl 
# Convert list of hex numbers into decimal

for ($i = 0; $i < @ARGV; $i++) {
  $val = hex($ARGV[$i]);
  printf("0x%x = %d\n", $val, $val);
}