#!/usr/bin/perl

my &#36a = 0;
my &#36sethour = 0;
my &#36setmin = 0;
while (&#36a == 0)
{

        (&#36sec,&#36min,&#36hour,&#36mday,&#36mon,&#36year,&#36wday,&#36yday,&#36isdst) = localtime(time);
        &#36mon=&#36mon+1;
        &#36year=&#36year+1900;

    #system(clear);
    print "   Perl Alarm Clock\n";
    print "  -================-\n";
print "
Jetzt ist:

Jahr  = &#36year
Monat = &#36mon
Tag   = &#36mday

Stunde  = &#36hour
Minute  = &#36min

";

    print "Hour to play: ";
    &#36sethour = <STDIN>;
    chomp &#36sethour;

    print "Minute to play: ";
    &#36setmin = <STDIN>;
    chomp &#36setmin;

    while (&#36a == 0)
    {
    #    system();
        (&#36sec,&#36min,&#36hour,&#36mday,&#36mon,&#36year,&#36wday,&#36yday,&#36isdst) = localtime(time);
        &#36mon=&#36mon+1;
        &#36year=&#36year+1900;
        print "h= &#36hour m= &#36min s= &#36sec  D=&#36mday M=&#36mon Y=&#36year &#36wday &#36yday &#36isdst|\n";
        print "Wake up time: &#36sethour:&#36setmin:00\n";
        sleep (10);
        if (&#36hour == &#36sethour && &#36min == &#36setmin) #<-Hier kannst Du beliebig erweitern
        {
        print "beeb "; #oder welche Aktion auch immer
            &#36a++;
        }
    }
}