if
  ( change current dir OR log error ) AND
...
if
  ( 0 OR 1 ) AND
...

if( 1 ) AND 
...

##</code><code>##


eval {
 $ftp->login($data->{'login'}, $data->{'pw'}) or die($ftp->message);
 $ftp->binary or die($ftp->message);
 $ftp->cwd($data->{'remote_dir'}) or die($ftp->message);
 $ftp->put($to_upload) or die($ftp->message);
 $ftp->quit;
};

if( $@ ) {
 $log->error("upload_file: xqe $data->{'id'}, " . $@);
 return undef;
} else {
 return 1;
}