Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
use strict;
...

# print your results
print("my results are: @results\n");

Select or download this

#!/usr/bin/perl
use strict;
...
find sub{-f $_ && $_ eq 'blah' && 
    push(@results,$File::Find::name)}, shift || '.';
print("my results are: @results\n");