Select Code to Download

use strict;
use warnings;
...
        print "LIGHTS ON\n";
    }
}

$ perl t.pl
Range: 450
...
Range: 450
LIGHTS ON
Range: 350

#!/usr/bin/env perl
use strict;
...
100 350  In range A
200 500  In range B
300 400  In range C

$ perl t.pl
Range: 0
...
Range: 530
Range: 550
Range: 557