my $content = $res->content;
  $content =~ s/(</head)/<base href="http://www.profit-position.com">$1/i;
  print $content;