# read file
sub _parse{
    my $self = shift;
    my $fh = $self->{FH};
    $fh->seek(0,0);
    read($fh, my $bin, -s $fh);
    my ($head, $body) = split "\n\n", $bin, 2;
    my $h = { $head =~ /(\w+)=(.*)/g };
    foreach my $val(values %$h){
        $val =~ s/-->//;
        $val =~ s/\s+$//;
    }
    $h->{body} = $body;
    return $h;
}