Select Code to Download

opendir D, '.';
@files = reverse sort grep $_ ne '.' && $_ ne '..', readdir D;
if (@files) {
    email($files[0]);
}

@files =  map { $_->[0] }
          sort { $b->[1] <=> $a[1] }
          map { /^(..)(..)(..)/; [ $_, "$3$2$1" ] }
          grep $_ ne '.' && $_ ne '..',
          readdir D;