Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w
use File::Find;
...
    (my $n = $File::Find::name) =~ s/.*\///;
    print "\t<blockquote>$n</blockquote>\n";
}

Select or download this

#!/usr/bin/perl -w
use File::Find;
...
    (my $n = $File::Find::name) =~ s/.*\///;
    print "\t<blockquote>$n</blockquote>\n";
}