#!/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);
}

##</code><code>##

#!/usr/bin/perl
use strict;
use LWP::Simple qw( get );

while (1) {
my $mail = get("http://url.org/goes/here");
$mail =~ /MAIL: (YES|NO)/;
my $status = $1;

if ($status eq "YES") {
system("br a1 on");
} else {
system("br a1 off");
}

sleep(20);

}