bpb-kit/home/bin/snowday

#!/usr/bin/env perl
#
use warnings;
use strict;
use 5.10.0;

use LWP::Simple;

my $page = get('http://www.bvsd.org/');

if ($page =~ /troublebutton/m) {
  say 'yes.';
  # `cowsay "SNOW DAY"`;
} else {
  say 'sorry.';
  # `cowsay "sorry. :("`;
}