aus langeweile entstanden und für alle die, die es auf ihrer Seite auch benutzen wollen hier der Quellcode... so richtig nach der Methode Quick ‘n’ Dirty. So kommts halt wenn man mal kurz was probieren will.

#!/usr/bin/perl
 
use CGI;
$anfrage = new CGI;
 
print $anfrage->header(),
      $anfrage->start_html(-title=>"guschdel's bofh excuses database", -author=>'guschdel@home.guschdel.net', -bgcolor=>"#dddddd"),
      $anfrage->h1({-align=>"center"}, "Welcome to the bofh database"),
      $anfrage->p("Everytime you call this script you will get a random bofh excuse<br>from the bofh excuses fortune database:"),
      $anfrage->p( `/usr/games/fortune bofh-excuses` ),
      $anfrage->p({-align=>"right"},"<br><br>powered by ". $anfrage->a({-href=>"http://www.guschdel.net"},"guschdel.net")),
      $anfrage->end_html();