sub parse{
    my $self=shift;
    my ($line) = @_;

    ($self->{'AN'}) = unpack("A5", $line);

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