grep ^"From " SPAM-mbox |   \
   awk '{$1 = $2 = $6 = "";    \
         gsub(/-0[45]00/, ""); \
         gsub(" ", "-");       \
         print $0}' |          \
   sort |                      \ 
   sed s/-$//g |               \
   uniq -c > spamstatfile


##</code><code>##

      1 --Fri-Jun-13--2003
      1 --Fri-Jun-20--2003
      2 --Mon-Jun-9--2003
     10 --Tue-Jun-24--2003
      3 --Wed-Jun-11--2003
      1 --Wed-Jun-18--2003

##</code><code>##

   set xdata time
   set timefmt "%b-%d-%Y"
   plot "spamstatfile" using 1:2

##</code><code>##

perl -lane '$h{"$F[3]-$F[4]-$F[6]"}++ 
     if /^From /; END {
        print $_, "\t", $h{$_} for keys %h
     }' SPAM  > spamdates