#!/bin/perl -w
use strict;

use XML::TokeParser;

#parse from open handle
  my $p=XML::TokeParser->new(\*DATA,Noempty=>1);

#skip to <Root...>
  my $tag= $p->get_tag('Root'); 
  my $atts= $tag->[1]; # that's where the atts are, look at the docs
  
while( my( $att, $value)= each %$atts)
  { print "$att -> $value\n"; }

__DATA__
<?xml version="1.0"?>
<!DOCTYPE Root SYSTEM "/path-to/theDtd">
<Root Id="456990" Group="Navy" TimeStamp="20020116123446" Performance="Regular" Database="gyt98x" Project="x">
<Request>
<DataForce>Premium</DataForce>
</Request>
</Root>