#!/usr/bin/perl
use strict;

$/ = undef;
while (1) {
open(MAIL,"/var/mail/perlmonk");
my $mail = <MAIL>;
close(MAIL);
open(WEB,">/usr/home/perlmonk/public_html/mail");
if ($mail) {
print WEB "MAIL: YES\n";
} else {
print WEB "MAIL: NO\n";
}
close(WEB);
sleep(60);
}