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