use XML::Twig;		# needs libxml-twig-perl

my $line = <>;

if (isXmlHeader ($line)) {
	my $t = XML::Twig->new();
	$t->parse (\*STDIN);
}