Select Code to Download

sub build_url {
   my $url = URI->new(shift(@_));
...
   $s =~ s/"/&quote;/g;
   return qq{"$s"};
}

my $url = build_url('/cgi-bin/script.pl',
   favadd   => 'yes',
...
my $js_url = 'javascript:popUp(' . text_to_js_lit($url) . ')';

print('<a href=' . text_to_html_val($js_url) . '>');