#language can be extended through the use of modules
use File::Find;   #File::Find module
#find subref, dirlist

sub wanted{
	if ($_ eq "Date") {    #$_ eq "av.h"      $_ eq "Date"
		print $File::Find::name;
		print "\n";
	}
}

find \&wanted, '/perl/lib/';