Select Code to Download

sub my_grep {
...
foreach my $grpfile (glob "group/server*.grp") {
  print "$grpfile: ", my_grep($grpfile, $group_re), "\n";
}