Problemer med datoen

Jeg har det hersens script, der BURDE vise en given tekst udfra dato og tid. Problemet er, at den hele tiden tror, det er søndag...

Scriptet ser således ud:

#!/usr/bin/perl

print \"Content-type: text/html\\n\\n\";

&pic;

exit;


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

$dennedag = (\'Søndag\',\'Mandag\',\'Tirsdag\',\'Onsdag\',\'Torsdag\',\'Fredag\',\'Lørdag\')[$dweek];

print \"$dennedag\";

if ($dennedag eq \'Fredag\' && ($hour == 11 && ($min > 59))) {
        print \"<IMG SRC=\\\"http://www.nvr.dk/grafik/programlogoer/morgen01.gif\\\">\";
    }

#elseif ($dennedag eq \'Torsdag\' && ($hour == 12 && ($min > 30))) {
#kommando hvis det er tirsdag mellem 12:30 og 13
#    }

  else
  {
    print \"Billedarkivet er lukket.\";
  }

}