This seems easy in Linux, but I\'m trying to print the names of *.pdf files within a directory and its subdirectories to an output file. I have Perl installed on my
use strict;
use warnings;
use File::Find;
my $dirname = shift or die "Usage: $0 dirname >outputfile";
File::Find::find( sub {
print $File::Find::name, "\n" if $File::Find::name =~ /\.pdf\z/
}, $dirname );