Uitgeschreven tijd GeekTool

#!/usr/bin/perl

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

@hour_words = ("Twaalf", "Eén", "Twee", "Drie", "Vier", "Vijf", "Zes", "Zeven", "Acht", "Negen", "Tien", "Elf");

if    ($min ==  0) { print                      $hour_words[$hour%12], " uur\n"; }
elsif ($min ==  1) { print "Eén over ",        $hour_words[$hour%12], "\n"; }
elsif ($min ==  2) { print "Twee over ",        $hour_words[$hour%12], "\n"; }
elsif ($min ==  3) { print "Drie over ",        $hour_words[$hour%12], "\n"; }
elsif ($min ==  4) { print "Vier over ",        $hour_words[$hour%12], "\n"; }
elsif ($min ==  5) { print "Vijf over ",        $hour_words[$hour%12], "\n"; }
elsif ($min ==  6) { print "Zes over ",        $hour_words[$hour%12], "\n"; }
elsif ($min ==  7) { print "Zeven over ",        $hour_words[$hour%12], "\n"; }
elsif ($min ==  8) { print "Acht over ",        $hour_words[$hour%12], "\n"; }
elsif ($min ==  9) { print "Negen over ",        $hour_words[$hour%12], "\n"; }

elsif ($min ==  10) { print "Tien over ",        $hour_words[$hour%12], "\n"; }
elsif ($min ==  11) { print "Elf over ",        $hour_words[$hour%12], "\n"; }
elsif ($min ==  12) { print "Twaalf over ",        $hour_words[$hour%12], "\n"; }
elsif ($min ==  13) { print "Dertien over ",        $hour_words[$hour%12], "\n"; }
elsif ($min ==  14) { print "Veertien over ",        $hour_words[$hour%12], "\n"; }
elsif ($min ==  15) { print "Kwart over ",        $hour_words[$hour%12], "\n"; }
elsif ($min ==  16) { print "Zestien over ",        $hour_words[$hour%12], "\n"; }
elsif ($min ==  17) { print "Zeventien over ",        $hour_words[$hour%12], "\n"; }
elsif ($min ==  18) { print "Achttien over ",        $hour_words[$hour%12], "\n"; }
elsif ($min ==  19) { print "Negentien over ",        $hour_words[$hour%12], "\n"; }

elsif ($min ==  20) { print "Tien voor half ",        $hour_words[($hour+1)%12], "\n"; }
elsif ($min ==  21) { print "Eénentwintig over ",        $hour_words[$hour%12], "\n"; }
elsif ($min ==  22) { print "Tweeëntwintig over ",        $hour_words[$hour%12], "\n"; }
elsif ($min ==  23) { print "Drieëntwintig over ",        $hour_words[$hour%12], "\n"; }
elsif ($min ==  24) { print "Vierentwintig over ",        $hour_words[$hour%12], "\n"; }
elsif ($min ==  25) { print "Vijfentwintig over ",        $hour_words[$hour%12], "\n"; }
elsif ($min ==  26) { print "Zesentwintig over ",        $hour_words[$hour%12], "\n"; }
elsif ($min ==  27) { print "Zevenentwintig over ",        $hour_words[$hour%12], "\n"; }
elsif ($min ==  28) { print "Achtentwintig over ",        $hour_words[$hour%12], "\n"; }
elsif ($min ==  29) { print "Negenentwintig over ",        $hour_words[$hour%12], "\n"; }

elsif ($min ==  30) { print "Half ",        $hour_words[($hour+1)%12], "\n"; }
elsif ($min ==  31) { print "Eén over half ",   $hour_words[($hour+1)%12], "\n"; }
elsif ($min ==  32) { print "Twee over half ",   $hour_words[($hour+1)%12], "\n"; }
elsif ($min ==  33) { print "Drie over half ",   $hour_words[($hour+1)%12], "\n"; }
elsif ($min ==  34) { print "Vier over half ",   $hour_words[($hour+1)%12], "\n"; }
elsif ($min ==  35) { print "Vijf over half ",   $hour_words[($hour+1)%12], "\n"; }
elsif ($min ==  36) { print "Zes over half ",   $hour_words[($hour+1)%12], "\n"; }
elsif ($min ==  37) { print "Zeven over half ",   $hour_words[($hour+1)%12], "\n"; }
elsif ($min ==  38) { print "Acht over half ",   $hour_words[($hour+1)%12], "\n"; }
elsif ($min ==  39) { print "Negen over half ",   $hour_words[($hour+1)%12], "\n"; }

elsif ($min ==  40) { print "Tien over half ",   $hour_words[($hour+1)%12], "\n"; }
elsif ($min ==  41) { print "Elf over half ",   $hour_words[($hour+1)%12], "\n"; }
elsif ($min ==  42) { print "Twaalf over half ",   $hour_words[($hour+1)%12], "\n"; }
elsif ($min ==  43) { print "Dertien over half ",   $hour_words[($hour+1)%12], "\n"; }
elsif ($min ==  44) { print "Veertien over half ",   $hour_words[($hour+1)%12], "\n"; }
elsif ($min ==  45) { print "Kwart voor ",   $hour_words[($hour+1)%12], "\n"; }
elsif ($min ==  46) { print "Veertien voor ",   $hour_words[($hour+1)%12], "\n"; }
elsif ($min ==  47) { print "Dertien voor ",   $hour_words[($hour+1)%12], "\n"; }
elsif ($min ==  48) { print "Twaalf voor ",   $hour_words[($hour+1)%12], "\n"; }
elsif ($min ==  49) { print "Elf voor ",   $hour_words[($hour+1)%12], "\n"; }

elsif ($min ==  50) { print "Tien voor ",   $hour_words[($hour+1)%12], "\n"; }
elsif ($min ==  51) { print "Negen voor ",   $hour_words[($hour+1)%12], "\n"; }
elsif ($min ==  52) { print "Acht voor ",   $hour_words[($hour+1)%12], "\n"; }
elsif ($min ==  53) { print "Zeven voor ",   $hour_words[($hour+1)%12], "\n"; }
elsif ($min ==  54) { print "Zes voor ",   $hour_words[($hour+1)%12], "\n"; }
elsif ($min ==  55) { print "Vijf voor ",   $hour_words[($hour+1)%12], "\n"; }
elsif ($min ==  56) { print "Vier voor ",   $hour_words[($hour+1)%12], "\n"; }
elsif ($min ==  57) { print "Drie voor ",   $hour_words[($hour+1)%12], "\n"; }
elsif ($min ==  58) { print "Twee voor ",   $hour_words[($hour+1)%12], "\n"; }
elsif ($min ==  59) { print "Eén voor ",   $hour_words[($hour+1)%12], "\n"; }