my($this) = FTP->new($RemoteHost,
   q(Timeout)      => $Timeout
);
bless($this);
%{*$this} = (
   %{*$this},
   q(Rename)       => $Rename,
   q(Recursions)   => $Recursions,
   q(NoCheck)      => $NoCheck,
   q(DirectCopy)   => $DirectCopy,
);