#!/usr/bin/perl
# fetch user's mail

# (c) 2006 Julian Haight,           http://www.julianhaight.com/
# All Rights Reserved under GPL:    http://www.gnu.org/licenses/gpl.txt

# Version history
# V1 4/14/2006

# check for mail:  skid/rkid + md5 of reciever sig of "check for mail"

use strict;
use Stubmail;

my($MBOX) = '/var/spool/mail/' . $ENV{LOGNAME};

Stubmail::fetchMail($MBOX);