Select Code to Download

sub create_selector {
  my ($spec) = @_;
...
my $selector = create_selector("=6.2");
...
my @selected_dists = grep { $selector->{$_} } @list_of_dists;

sub create_selector {
  my ($spec) = @_;
...
    $selector = sub { $_[0]->version->$method($2) }
  }
}