Select Code to Download

#!/usr/bin/perl -w

...
foreach $file (keys %count) {
        if($count{$file} < 2) {
                print "SYNC this file: $file \n";

        }
}
...
# for STDOUT format cleanliness
#####
print "\n";