Select Code to Download

#!/usr/local/bin/perl -wT

...
     $date = con_date($hash{"g_afsluttet"});
    $hash{"g_afsluttet"} = $date;
 }

#--------Farven findes start -----------------
...
    my $ret = sprintf ("%02d-%02d-%04d", $dd, $mm, $yyyy);
    return $ret;
}