Select Code to Download

my $string = do { local $/; <DATA>};
my $ref = XMLin($string);

my $ref = XMLin(\*DATA);