<!--spmacro:module(check)
sub zeit {
use Time::Local;
my ($sec,$min,$hour,$mday,$mon,$year) = localtime(time);
my $out = "Hallo";
if ($hour >= 5 && $hour <=10) {$out = "Guten Morgen";}
if ($hour >= 18 && $hour <=22) {$out = "Guten Abend";}
main::mprint ($out);
}
-->