Not drinking fast enough, I can help....Or, Wake up and drink.

So I have this problem....It's not drinking....quickly. Sometimes I get to involved in my work, and don't drink quickly enough. Many men have this problem. And I am here to solve it. So how would one reminde one's self to drink.....A script of course. So here is a script that does an apple beep every 5 minutes(sleep, 300 seconds):

#!/put/your/perl/path/here
use Mac::AppleScript qw(RunAppleScript);
$booT = 1;
while ($booT) {
RunAppleScript(qq(beep\ndo shell script "/bin/sleep 1"))
or die "Didn't work!";
sleep(300);
}

There is a problem with not recognizing the sound because if you are like me, you really tone out error sounds...cause you hate them. So the solution is to change your "beep" sound, to do that go to:
System Prefrences > Sound > Sound Effects
And change it to something you find annoying.....Hey windows does it...why not, you know.


CAVEAT:
You will need to install the perl module: Mac::AppleScript:
sudo cpan
install Mac::AppleScript



PS you guys see that...
boo-T
Like booty
heh


Also this is not my picture it is a CC licensed photo from here:
http://www.flickr.com/photos/someoneelse/2862719142/in/photostream/