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