$uri =~ s/(.*)\/$/$1/; # Remove a final slash if present
$uri .= "/"; # Put a final slash
$myurl = $cgi->url();
$cont = ""; # modified by side-effect by &callback
my $ua = LWP::UserAgent->new;
$uri =~ s/(.*)\/$/$1/; # Remove a final slash if present
$uri .= "/"; # Put a final slash
$myurl = $cgi->url();
$cont = ""; # modified by side-effect by &callback
my $ua = LWP::UserAgent->new;