my $content = $res->content;
$content =~ s#</head>#<base href="http://perlmonks.org"></head>#;
print $content;