Select Code to Download

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

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