#!/usr/bin/perl
#
# Alarm Clock Twist

$loop = 1;
@time2 = localtime;
$timenow = "$time2[2]$time2[1]";
$time3 = $timenow;
print "\n";
print $timenow;
print "Time for alarm: ";
chomp($plus = <STDIN>);
print $timenow;
while ($loop=1){
@time2 = localtime;
$timenow = "$time2[2]$time2[1]";
$time3 = $timenow;
if($time3==$plus){
	 print "Wake up sleepy\n";
	system("amarok --play");
	 exit; 
}
print "\n";
print "  _________________________\n";
print " /                         \\\n";
print " |TIME: ";
print "$time2[2]:$time2[1]:$time2[0]";
print "            |\n";
print " \\_________________________/\n";
$clear_string = `clear`;
print $clear_string;
sleep(1);
}