my $hex = sprintf("0x%02x%02x%02x40", 60,179,113);
$hex = hex($hex);
Dump($hex)
__END__
SV = PVIV(0x84d3b10) at 0x84d1cdc
  REFCNT = 1
  FLAGS = (PADBUSY,PADMY,IOK,pIOK)
  IV = 1018392896
  PV = 0x84e5608 "0x3cb37140"\0
  CUR = 10
  LEN = 12