#!/usr/bin/perl -w
	use CGI qw/:standard/;

         use XML::Writer;
         my $writer = new XML::Writer(DATA_MODE => 1, DATA_INDENT => 2);

	print header, start_html(-style=>{'src'=>'style.css'} );

         $writer->startTag("div","class" => "beskedramme");
          $writer->startTag("div","class" => "navn");
          $writer->characters(param('navn'));
          $writer->endTag("div");

          $writer->startTag("div","class" => "besked");
          $writer->characters(param('tekst'));
          $writer->endTag("div");
         $writer->endTag("div");
         $writer->end();

print end_html;