my $xml;
while (<SITE>) {
	$xml .= $_;
}