Thanks for being so helpful. How do i get it to NOT include the current working directory? </code> sub process_each_file { if( -d $File::Find::name) { print $File::Find::name, "\n"; } } find( \&process_each_file, '.' ); </code> The first item in the list is .