use strict;
use warnings;
use File::Find;
find({ wanted => \&process_file, preprocess => \&preprocess, no_chdir 
+=> 1 }, @ARGV);
#find({ wanted => \&process_file, no_chdir => 1 }, @ARGV);
 sub process_file {
@List = ();
if (-f $_) {
 print "This is a file: $_\n";
push(@List,$_);
 } else {
  print "This is not file: $_\n";
 }
return @List;
}
sub preprocess {
 print "pre-processing @_\n";    # never see this
 return sort @_;
}
@DIRLIST = @List;
print "@DIRLIST\n";
[download]

I am trying to return List of Files from File:Find to main Module in @DIRLIST But do not know if it is possible to return a value from wanted sub in File:Find to main sub

Just create your list variable in the main scope of your script, so it'll be in scope inside the sub:

my @list;
find( \&wanted, '.');
say for @list;

sub wanted {
        return unless -f;
        push @list, $File::Find::name;
}
[download]