Better yet in new do something like

my $self=Net::FTP->new(@_);
bless $self,shift;
local *r=*$self;
%r=@_;
$r{mystuff}=...;
return$self;
[download]

Then in any method do

my $parent=shift;
my $self=do{local *self=*$parent;\%self}
[download]