Perl beibringen wenn ein neuer Tag anfängt ?

[xNeTworKx]

Hallo,

($sek, $min, $std, $tag, $mon, $jahr) = localtime( time );

Ich glaub damit kann ich schon was nettes basteln =), danke