Select Code to Download

#old.pl
  while (@emails = $sth->fetchrow) {
...
    $emailcount++;
  }

#new.pl
    my %total=map{$_,0}(qw(weekly daily blast custom));    
...
        $update->execute($emails[0]);
        $total{$emails[5]}++;
    }

my $t0 = new Benchmark;
fetchmail();
my $t1 = new Benchmark;
my $td = timediff($t1, $t0);
print "the code took:",timestr($td),"\n";