Select Code to Download

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

if ($opt{'c'}) {
 open CATLOG, "<$MAILLOG";
...
 ...while loop code here...
 } # End while loop
close (CATLOG) if ($opt{'c'});

 if ($opt{'c'}) {
   open MAILLOG_R, "<$MAILLOG"
...
 while(my $line = <MAILLOG_R>) {
  ...blah...
 }