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