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