Select Code to Download

#!/usr/local/bin/perl -w
use strict;
...
warn 'assigned coderef to $foo';
my @mtchs = $foo->( qw(sacked soccer) );
warn 'called $foo->()';

 
sub make_grep {
  my $pat = shift;
  sub { grep /$pat/o, @_ };
}