#!/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"; }