my $self=Net::FTP->new(@_);
bless $self,shift;
local *r=*$self;
%r=@_;
$r{mystuff}=...;
return$self;
##</code><code>##

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