Select Code to Download

use warnings;
my $range = "1..10";
...
    my @t = split /\.\./, $_[0];
    return ($t[0] .. $t[1]);
}

sub range {
    my @t = split /\.\./, $_[0];
    return ($t[0], $t[1]);
}