sub StartHandler 
{
    my $expat   = shift;
    my $element = shift;
    my %attr    = @_;

    print $attr{PUBID};
    #...
}