The do_something or warn_or_die($message); idiom is a good one. But there's no requirement that you use it when it doesn't fit well. Just do the obvious...

if ($ftp->delete($file)) { 
    print LOG "$file successfully deleted\n"; 
} else { 
    print LOG "Cannot delete $file - ", $ftp->message;
}
[download]