Select Code to Download

#!/bin/perl -w
use strict;

...
my $doc= $p->parse( \*STDIN);

print Denter( $doc);

#!/bin/perl -w 
use strict;
use Text::Iconv;
...
__DATA__
<?xml version="1.0" encoding="ISO-8859-1"?>
<doc>espaņol</doc>