my $infil = '20090101.arch';
my $begPat = '^From ';

my $INFILE = new IO::File();
open($INFILE, "< $infil") or die("$infil: $!");

my $Num = 0;
my ($line, $subject);

while(1) {
        my $startOffset = tell($INFILE);
        $startOffset-=scalar(length($line)) if($line =~ /$begPat/);
        while($line = <$INFILE>) {
                $subject = $line if($line =~ /^Subject:/);
                last;
        }
       
}

close($INFILE);