Select Code to Download

sub loadCode {
  my $this   = shift;
...

  $this->{code} = sub {eval($$scrref);};       # store the script in a
+n anonymous subroutine
}