Help for this page

Select Code to Download


  1. or download this
    my $xmldata = IO::Handle->new->fdopen(fileno(DATA),'r');
# print $xmldata->getline();
my $cr = XMLin( $xmldata );
  2. or download this
    my $cr = XMLin( do { local $/ ; <DATA> } );