#!/usr/bin/perl
open FILE,"mailq|";
#open FILE,"1\.txt" or die "can not open file!$!";
%From;
%To;
my $i=1;
my $tuiuser=0;
my $iftuixin=0;
while()
{
  if(/.* (\w+.*@\w+.*\..*)/)
  { $fromuser=$1;
    $From{$fromuser}+=1;
    # print $fromuser;
     }
  if($tuiuser==1)
  {
    if(/.*?(\w+@.*)/)
    {
      s/^\s+\s+$//;
      $To{$_}+=1;
      $tuiuser=0;
    }
    if($iftuixin==1)
    {
      s/^\s+\s+$//;
      $To{$_}+=1;
      $iftuixin=0;
      $tuiuser=0;
    }
    unless( /.*@.*/)
    {
      $iftuixin=1;
    }
   
  }
  if(/MAILER-DAEMON/)
  { $tuiuser=1;
  }

 
}
print "----- mail user-----\n";
@frompai=sort{ $From{$b} <=> $From{$a} or $a cmp $b } keys %From;
foreach (@frompai)
{ $i++;
   print "$_\:";
  print "$From{$_}\n";
  last if $i==16;
     
}
$i=0;
print "----- MAILER-DAEMON-----\n";
@topai=sort { $To{$b} <=> $To{$a} or $a cmp $b} keys %To;
foreach (@topai)
{ $i++;
  if(/(\w+@\w+)/)
  {
  print "$1\:";
  print "$To{$_}\n";
  }
  last if $i==16;
}