Something like

$ftp->delete($file) and do { warn "$file successfully deleted\n" } or 
+do {warn print LOG "Cannot delete $file - ", $ftp-message };
[download]

perhaps? Please change "warn print LOG" to "warn"!