File::Find::Rule and Glob

use File::Find::Rule;

print "$_\n" for File::Find::Rule->file()->name('*.pdf')->in('e:/purand/');

#!/usr/bin/perl
use File::Glob ':glob';                                     # Override glob built-in.                         
print join("\n",glob("*.pdf"));

__END__

my $rule = File::Find::Rule->file()->name('*.pdf')->start('e:/purand/');
while (defined (my $pdf = $rule->match)) {
   print "$pdf\n";
}