сценарий perl для рекурсивного перечисления всех файлов в каталоге

Я написал следующий сценарий perl, но проблема в том, что он всегда идет в другой части и сообщает не о файле. У меня есть файлы в каталоге, который я ввожу. Что я здесь делаю не так?

Мое требование - рекурсивно посещать каждый файл в каталоге, открывать его и читать в строке. Но первая часть логики не работает.

#!/usr/bin/perl -w
use strict;
use warnings;
use File::Find;

my (@dir) = @ARGV;
find(\&process_file,@dir);

sub process_file {
    #print $File::Find::name."\n";
    my $filename = $File::Find::name;
    if( -f $filename) {
        print " This is a file :$filename \n";
    } else {
        print " This is not file :$filename \n";
    }
}