http://twitter.com/church_clock

church_clock.pl

#!/usr/bin/env perl
use strict;
use Net::Twitter::Lite;
use Date::Format;

my $client = Net::Twitter::Lite->new(
	consumer_key    => "",
	consumer_secret => "",
);

$client->access_token("");
$client->access_token_secret("");

my @local_time = localtime(time);
my $boing_count = strftime("%I", @local_time);
my $message = "BOING " x $boing_count;
$message =~ s/\s+$//;

if( $client->update({ status => $message }) ) {
	print "Status updated!\n";
} else {
	print "Status could not be updated!\n";
}