Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
sub after { print "bye " }

sub when { print "file! $File::Find::name " }
  2. or download this
    file! A hi file! A/a1 file! A/a2 file! A/B hi file! A/B/b1 file! A/B/b
+2 bye file! A/C hi file! A/C/c1 file! A/C/c2 bye bye