use File::Find;
sub get_file{
  my ($file_name)  = $_;
  my $file_fullpath  = $File::Find::name;
  my $file_dir  = $File::Find::dir;
}
find (\&get_file, "/usr/some/dir");