Select Code to Download

while (defined($_ = readdir(DIR))) {
    next if /^\.\.?$/;
    unless (delete $files{$_}) {
        print "New: $_\n";
    }
}

for (keys %files) {
    print "Gone: $_\n";
}