$ perl -le 'print unpack q{i}, qq{\x28\x23\x00\x00};'
9000
$