Select Code to Download

# warning: untested code

...
    print "Lost file $yesterday";
    print "Lost file $_" while <YESTERDAY>;
}

# Again untested, so take care !
# A string that will sort beyond any returned file (they all start wit
+h /)
...
    local $_;
    print "Lost file $_" while <YESTERDAY>;
}