Select Code to Download

  my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
                                                localtime(time);

 if     ($wkday = 0) {$day = "Sun";}
 elsif  ($wkday = 1) {$day = "Mon";}