#!/usr/bin/perl
use File::Find;

find(\&wanted, "Perl", "/");