snowday/snowday.pl

#!/usr/bin/env perl
use LWP::Simple;
$page = get('http://www.bvsd.org/');
if ($page =~ /troublebutton/m) {
  print "yes.\n";
  # `cowsay "SNOW DAY"`;
} else {
  print "sorry.\n";
  # `cowsay "sorry. :("`;
}