#!/usr/local/perl-5.6.0/bin/perl -w
# Print folders with unseen messages
# Written by John Klassa

use strict;

$| = 1;

if(@ARGV) {
   foreach (@ARGV) {
      do_folder($_);
   }
}
else {
   open FDR, "$ENV{HOME}/Mail/.folders" or die "$!";
   
   while (<FDR>)
   {
       chomp;
       do_folder($_);
   }
}

close FDR;

sub do_folder {
    local $_=shift;

    if (open INP, "$ENV{HOME}/Mail/$_/.mh_sequences")
    {
        if (grep(/^unseen: /, <INP>))
        {
            print "$_\n";
        }

        close INP;
    }
}
