Select Code to Download

my @file_list;
sub files_wanted {
...
  my $file_size = -s $raw_file;
  push @{$files{"$file ($file_size bytes)"}}, $raw_file;
}

my %files;
sub files_wanted {
...
  }
}
find(\&files_wanted,$directory);