#!/usr/local/bin/perl 
#
# $Id: .messages.pl,v 1.1 1995/09/06 03:32:40 chenym Exp chenym $
#
# $Log: .messages.pl,v $
#Revision 1.1  1995/09/06  03:32:40  chenym
#Initial revision
#
#
require "ctime.pl";
$mbox="/var/spool/mail/$ENV{'USER'}";

open(MAIL,"$mbox");
while(){ 
 $total++ if (/^From /o) ;
 $old++ if (/^Status: RO/o) ;
}
close(MAIL);

@mail=stat("$mbox");
$last=&ctime($mail[9]);
print "Last mail came at $last";
print "Found ",$total-$old," unread mails from ",$total," mails in your mail box \n" if ($total != $old);
print "No unread mails in ",$old," messages.\n" if ($total==$old);