#!/usr/bin/perl -w

use strict;

use Data::Dumper;

use XML::Simple qw(:strict);

my $data = {
	    phone => '555-1234',
	    type  => 'home'
	   };

print STDERR XML::Simple->new(KeyAttr => {phone => 'type'},
			      RootName => 'phone',
			      XMLDecl => 1,
			      ContentKey => 'phone',
			     )->XMLout($data);