#!/usr/bin/perl -w

use XML::Writer;


# Create XML object
my $d = new XML::Writer(DATA_MODE => 1, DATA_INDENT => 2);

# Set codetable
$d->xmlDecl("UTF-8");

$d->startTag('BWired');
  $d->startTag('Init');

    $d->startTag ('DateTime');
    $d->characters ('13-3-2009');
    $d->endTag ('DateTime');

    $d->startTag ('UserName');
    $d->characters ('USERNAAM');
    $d->endTag ('UserName');

    $d->startTag ('Password');
    $d->characters ('PASSWORD');
    $d->endTag ('Password');

    $d->startTag ('ScreenName');
    $d->characters ('Jfn');
    $d->endTag ('ScreenName');

    $d->startTag ('Gpslat');
    $d->characters ('52.3');
    $d->endTag ('Gpslat');

    $d->startTag ('Gpslong');
    $d->characters ('6.2');
    $d->endTag ('Gpslong');

    $d->startTag ('City');
    $d->characters ('s-Hertogenbosch');
    $d->endTag ('City');

    $d->startTag ('Website');
    $d->characters ('www.sesamstraat.nl');
    $d->endTag ('Website');

    $d->startTag ('Title');
    $d->characters ('Jfn\'s Online Place');
    $d->endTag ('Title');

  $d->endTag('Init');

  # Entry for outside temperature
  $d->startTag('Entry');

    $d->startTag ('Name');
    $d->characters ('Outside Temperature');
    $d->endTag ('Name');

    $d->startTag ('ID');
    $d->characters ('1');
    $d->endTag ('ID');

    $d->startTag ('Units');
    $d->characters ('C');
    $d->endTag ('Units');

    $d->startTag ('Value');
    $d->characters ('10.7');
    $d->endTag ('Value');

  $d->endTag('Entry');

$d->endTag('BWired');
$d->end();