my @files = File::Find::Rule->file()
                            ->name( '*.pl' )
                            ->in( ($args->{dir_name}) );