alarm.pl

This should wake me up in the morning!

#!/usr/bin/perl

select(undef,undef,undef,1) while (`date +%H:%M` ne $ARGV[0]."\n");
`ogg123 "\`find /mnt/winshare/itunes/Skillet | grep "\\.ogg\$" | sort -R | head -1\`"` while(1);