Select Code to Download

sub eval_in_page {
    my ($self,$str) = @_;
...
    my $uri = $self->uri;
    return @{ $eval_in_sandbox->("$uri",$window,sub {print "Alert: @_"
+}};
};