#!/usr/bin/perl -w

$le_ts = "B65B7B4000";
print unpack "L<", pack "H*", $le_ts;