print "Enter month (Abc) \n";
my $month = <STDIN>;
chomp $month;

system ("mailq \| grep \@ \| \$month \|sort +6 -7");