--- a/bin/ftbackup	Wed May 04 12:01:00 2011 +0200
+++ b/bin/ftbackup	Fri May 20 09:31:21 2011 +0200
@@ -646,6 +646,7 @@
     my @unlink;
 
     if ($dumps[0]) {
+	TRACE "level 0:", join "|" => @{$dumps[0]};
 	@{ $dumps[0] } = sort { $a->{stamp} <=> $b->{stamp} } @{ $dumps[0] };
 
 	if ($keep =~ /^\d+$/) {
@@ -679,7 +680,7 @@
     ### @unlink
 
     foreach (@unlink) {
-        say "DELETE: $_->{file}";
+        TRACE "DELETE: $_->{file}";
         next if $opt_dry;
         $ftp->delete($_->{file});
     }