Help for this page

Select Code to Download


  1. or download this
      $data =~ s/&/&/g;
  $data =~ s/</&lt;/g;
  $data =~ s/>/&gt;/g;
  print "<Node1>$data</Node1>\n";
  2. or download this
      BEGIN { push(@INC, '/home/sam/modules'); }
  use XML::Writer;