#!/usr/bin/perl use strict; use warnings; $| = 1; # ----------- Beginn Konfiguration -------------- my $Filename = "./ausreden.txt"; # ------------ Ende Konfiguration --------------- my @excuses = (); my $thisexcuse = ''; open(DAT, $Filename) || print "Argh! Can't read the excuse file!\n"; @excuses = ; close(DAT); srand(time); $thisexcuse = $excuses[(rand(5000)*$$)%($#excuses)]; # kein Formular, kein sonstwas... print "Content-type: text/html\n\n"; print qq~ Entschuldigungen für den Admin


Entschuldigungen für den Administrator

Das Problem ist:
    $thisexcuse
~;