my $xml;
open (SOURCE, $source_file)
    or die "ERROR: Cannot open filehandle to read $source_file: $!\n";
{
    local $/;
    $xml = <SOURCE>;
}
close(SOURCE)
    or die "ERROR: Cannot close filehandle on $source_file: $!\n";
print $xml;