You need to post a complete SSCCE because this works for me.

#!/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");
[download]

output:

OS=MSWin32 Perl=v5.16.1 XML::Writer=0.625
<Contact Type="Information" Phone="13824898944" Email="abctest@abc.com">I am here to ask questions</Contact>

Hi Poj, Thanks
but it looks like I was not clear in my question.
I need to print the both attribute key and value dynamically via XML:Writer. e.g. if $cContactPhone value is blank then the XML should be printed as below.

<Contact Type="Information" Email="abctest@abc.com" Contact Name ="I a
+m here to ask questions"</Contact>
[download]

if $cContactEmail value is blank then it should print as below

<Contact Type="Information" Phone="13824898944" Contact Name ="I am he
+re to ask questions"</Contact>
[download]

Thanks

If you don't want something to appear in the output, don't tell the module to output it. Basically

$attributes{"Type"}  = $information   if $information;
$attributes{"Phone"} = $cContactPhone if $cContactPhone;
$attributes{"Email"} = $cContactEmail if $cContactEmail;
$self->xml->startTag("Contact", %attributes);
[download]


Edit:
Typo


holli

You can lead your users to water, but alas, you cannot drown them.

If you have many attributes then consider map and grep

#!/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);
[download]

poj