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