$belo = pack 'N', 10000; $behi = pack 'N', 20000; $ben = pack 'N', 12345;;
$belo lt $ben && $behi gt $ben and print 'Works';;
Works

##</code><code>##

$lelo = pack 'V', 10000; $lehi = pack 'V', 20000; $len = pack 'V', 12345;;
$lelo lt $len && $lehi gt $len and print 'Works';;

##</code><code>##

$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';;