スゲい簡単なPerl入門 -5thDay @_ $_ ref: http://qiita.com/items/4e6f35905122c5505d99

file1.txt

sub fileProc{
        #もしいま注目しているファイルやディレクトリがファイルとして存在したら、
        #$File::Finde::nameします
        print "$File::Find::name\n" if -f $_;
}

findName.pl

#!/usr/bin/perl -w

use File::Find;

find(\&fileProc,'.');

sub fileProc{
        # もし$_というファイルが存在しなければメソッドを脱出
        return unless -f $_;
        print "$File::Find::name\n"
}