if ($opt{'c'}) {
 open CATLOG, "<$MAILLOG";
 while (my $line = <CATLOG>) { while_sub($line); }
} else {
 $log = File::Tail->new( name => $MAILLOG, tail => -1);
 while (defined(my $line=$log->read)) { while_sub($line); }
}