$bello = pack 'l>', 10000; $belhi = pack 'l>', 20000; $beln = pack 'l>', 12345;;
$bello lt $beln && $belhi gt $beln and print 'Works';;
Works

$lello = pack 'l<', 10000; $lelhi = pack 'l<', 20000; $leln = pack 'l<', 12345;;
$lello lt $leln && $lelhi gt $leln and print 'Works';;