#!/usr/bin/perl -w

	use strict;
	use File::Find;
	
		@Verzeichnis = ("Subdir1","Subdir12","Subdir3");
    	        find(\&wanted, @Verzeichnis);
		
		
    	
		sub wanted {
					
					$File::Find::dir  = "/home/james/gbt"
    				        $_ =~ m/pdf/
    				
    				}
					
#END