Help for this page

Select Code to Download

Select or download this

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

Select or download this

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