#!/usr/bin/perl
use Data::Stag;

my $s = Data::Stag->parse(shift @ARGV);

my @entries = $s->get_entry;
foreach my $e (@entries) {
    printf "%s\t%s\n", $e->get('@/id'),$e->get_name;
}