my $xst;        

if((not defined $xml) or ($xml =~ m/read\stimeout/i)){
    &printXMLErr('request timed out');
} else {
    my $xs = XML::Simple->new();
    $xst = eval { $xs->XMLin($xml,KeyAttr=>1) };
    &printXMLErr($@) if($@);
}