open LOG, ">> $LOGFile" or die "IO error opening $LOGFile for append: $!";
...
$ftp->get($filename);
print LOG "[get $filename] server response: ", $ftp->response || 'no response', "\n";