Listing 4. simple-find.pl

#!/usr/bin/perl -w
use strict;
use diagnostics;
use File::Find;
# Invoke "find" with a reference to our
# subroutine, and the initial directory name
find(\&print_name, "/home/reuven");
sub print_name { print "$File::Find::name\n"; }