#!/usr/bin/perl
use strict;
use XML::Writer;

my $writer = XML::Writer->new();
my %obj = (
 Type   => 'Information',
 Phone  => 0,
 Email  => '',
);

my %attr = map  { $_ => $obj{$_} }
           grep { length $obj{$_} } keys %obj;

$writer->startTag("Contact",%attr);