Help for this page
while ($newtime !~ /[0-59\*]\s+[0-23\*]\s+[1-31\*]\s+[1-12\*]\s+[0-6\* +]/) { print qq (\n Enter the time: ); $newtime = <STDIN>; chomp $newtime; }
minute (0-59), hour (0-23), day of the month (1-31), month of the year (1-12), day of the week (0-6 with 0=Sunday).