#!/usr/bin/perl -w
use strict;

sub find_range {
    ...
}

print find_range('100/65535'); # prints 1, OK
print find_range('1/1'); # prints warning and 255, OK
print find_range('99/99999'); # prints 1, should print 2