Select Code to Download

no strict 'refs';
$bla = "something";
...
$$blaref = "something else";

print $bla;  # prints "something else"

my $subname = "packagename::some_sub";
no strict 'refs';
...
};

packagename::some_sub();