Help for this page

Select Code to Download

Select or download this

sub parse{
    my $self=shift;
...

    print $self->{'AN'}."\n";
}