Select Code to Download

    my %function_for;
    my %scalar_ref_for;
...
        my( $self ) = @_;
        return $scalar_ref_for{ ident $self };
    }

my $tied_variable;
tie $tied_variable,
...
 ) };

$tied_variable = "assignment";

my $tied_variable;
tie $tied_variable,
...
print {$fh} 'this is a test';

warn 'here2:',$tied_variable;