#!/usr/local/bin/perl5.004

use XML::Parser;

$p = new XML::Parser Style => 'subs';

parsefile $p 'REC-xml-19980210.xml';

sub p {
    print "@{$p->{Context}}\n";
}
