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