Select Code to Download

#!/bin/perl -w;
use strict;
foreach my $file (glob( "files/*")) # put the files dir here
...
    else { $year+=2000}; 
    return $year.$month;
  }

my @sorted_filenames= map  { $_->[0] }
                            sort { $a->[1] cmp $b->[1] }
                            map  { [$_, correct($_)] } 
                            glob( "files/*");