Mail Header Fast Get

mail_header_get.pl

my $header;
my $buf;
my $term = "\n\n";
my $term_buf = '';
open($fh, $path) || die "$path $!";
while (read($fh, $buf, 4096)) {
    $buf=~tr/\r//;
    my $pos = index($term_buf . $buf, $term);
    if ($pos >= 0) {
        my $pos2 = $pos - length($term_buf);
        if ($pos2 > 0) {
            $header.= substr($buf, 0, $pos2);
        }
        last;
    } else {
        $header.= $buf;
        $term_buf = substr($buf, 0, (length($term) - 1) * -1);
    }
}
close $fh;