package Net::IMAP::Simple;

sub unseen {
 my ( $self, $mbox ) = @_;
 my $unseen = 0;
  $mbox ||= "INBOX";
 $self->_process_cmd (
   cmd     => [STATUS => "\"$mbox\"" . " (UNSEEN)" ],
   final   => sub { },
   process => sub {
          $unseen  = $1  if ( $_[0] =~ /UNSEEN\s+(\d+)/ );
     }
 );
  return $unseen;
}