$data =~ s/&/&/g;
  $data =~ s/</&lt;/g;
  $data =~ s/>/&gt;/g;
  print "<Node1>$data</Node1>\n";

##</code><code>##

  BEGIN { push(@INC, '/home/sam/modules'); }
  use XML::Writer;