#!/usr/bin/perl -w

# twittercheck.pl - by dual
#
# Alerts of site down via Twitter

use strict;
use LWP::UserAgent;

my $ua  = LWP::UserAgent->new;
my $req = HTTP::Request->new('GET', 'http://www.example.com/');
my $res = $ua->request($req);
my $chk = $res->content;

system("curl -u user:pass -d status=\"SITE DOWN\" https://twitter.com/statuses/update.xml > /dev/null")
  if $chk =~ /^500/;