Is it a snow day for the Boulder Valley School District?

snowday.pl 208B

12345678910
  1. #!/usr/bin/env perl
  2. use LWP::Simple;
  3. $page = get('http://www.bvsd.org/');
  4. if ($page =~ /troublebutton/m) {
  5. print "yes.\n";
  6. # `cowsay "SNOW DAY"`;
  7. } else {
  8. print "sorry.\n";
  9. # `cowsay "sorry. :("`;
  10. }