Select Code to Download

#!/usr/bin/perl -w

...
        $oldestfile = $mtime;
    }
}

 readdir DIRHANDLE
Returns the next directory entry for a directory opened by "opendir". 
+If used in list context, returns all the rest of the entries in the d
+irectory.  If there are no more entries, returns an undefined value i
+n scalar context or a null list in list context.