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);


##</code><code>##

From 10.1.60.40
Accept: */*
Transfer-Encoding: chunked
Subject: Test mail 1

Mime-Version: 1.0
Content-Type: multipart/mixed;
Content-Type: text/plain
xxxxxxxxxxxxx
xxxxxxxxxxxxxxxx
xxxxxxxxxxxx
Content-Type: application/x-gzip
Content-Disposition: attachment; filename="Sampledata.gz"
Content-Transfer-Encoding: base64
H4sIAAAAAAAAA+y9bXOkOLbv+74+BSfiztyeuG0Xz0nWnuu4rqfumq6nXa7qntlxIjIwiW1O


From 10.60.128.140
Accept: */*
Transfer-Encoding: chunked
Subject: Test mail 2


Mime-Version: 1.0
Content-Type: multipart/mixed;
Content-Type: text/plain
xxxxxx
xxxxxx
xxxxxx