Monks,
I have the following code snippet:

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

When the %{*$this} line is executed, I'm greeted with the following error...

This isn't my code, so any guidance on what this is telling me and what's needed to "fix" it would be appreciated.