Select Code to Download

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

my $xml;
{
...
   undef $/;
   $xml = <SITE>;
}