#!/usr/bin/perl -w

@QUEUE = split(/\n{2}/, `/usr/bin/mailq`);
$summary = pop @QUEUE;
if ($ARGV[0]) {
         $summary =~ s/^.+Kbytes\sin\s(\d+).+$/$1/s;
         print scalar(@QUEUE), "\n";
} else {
         for (@QUEUE) {
                 s/^.+?\s+(\d+)\s.+$/$1/s;
                 $my_total += $_;
         }
         $my_kbytes = int($my_total/1000);
         $summary =~ s/^.+?\s(\d+).+$/$1/s;
         print "$my_kbytes\n";
        #print "$my_kbytes\n$my_kbytes\n\n";
}

#EOF