Select Code to Download

#!/usr/bin/perl
use strict;
...
getopts ('t:',\%opts);
my $interval = $opts{t} || 60;
die $usage unless $interval == 10 .. $interval == 60;

for my $i (1 .. 15) {
    if(my $cnt = $i==5 ... $i==10) {
...
8 - 4
9 - 5
10 - 6E0