#!/usr/bin/perl
use strict;
use XML::Writer;
printf "OS=%s Perl=%s XML::Writer=%s\n",$^O,$^V,$XML::Writer::VERSION;

my $writer = XML::Writer->new();
my $cContactPhone = 13824898944;
my $cContactEmail = 'abctest@abc.com';
$writer->startTag("Contact",
  "Type"  => "Information",
  "Phone" => $cContactPhone,
  "Email" => $cContactEmail
);
$writer->characters('I am here to ask questions');
$writer->endTag("Contact");