use XRD::Parser;
my $parser = XRD::Parser->hostmeta('gmail.com');
$parser->consume;
my $data = $parser->graph->as_stream;
while (my $st = $data->next)
{
print $st->as_string . "\n";
}
use XRD::Parser;
my $parser = XRD::Parser->hostmeta('gmail.com');
$parser->consume;
my $data = $parser->graph->as_stream;
while (my $st = $data->next)
{
print $st->as_string . "\n";
}