Select Code to Download

while (defined (my $file = readdir($DH))) {  
    my $cretime;
    eval {$cretime=stat("$SPOOL/$file")->ctime; 1;} or next;
    push(@files, [$cretime,$file]);
}