#!perl
use File::Find;
find(\&wanted,@INC);
sub wanted {
  print "$File::Find::dir/$_\n" if ($_ =~ /\.pem$/);
}