Help for this page

Select Code to Download


  1. or download this
    find(sub {print $File::Find::name if $_ eq 'blah'}, ".");
  2. or download this
    my $blah = <*/blah>;
print $blah;
# Or if more than one
@blahs = <*/blah>;
print "$_\n" for @blahs;