use strict;

# Das ist der große Trick: Statt Newline als Zeilentrenner
# zu verwenden, wird die entsprechende Perl-Variable umdefiniert:
$/ = "\n%\n"; # Sprueche-Trenner = Newline, %, Newline
# Nun wir immer ein kompletter Spruch (mit Newlines) beim
# Dateizugriff eingelesen

my ($data,$cookie);

# Datei mit Spruechen, entweder die Standard-Datei
# verwenden oder Name von der Kommandozeile uebernehmen
$data = '/usr/share/games/fortunes/fortunes';
$data = $ARGV[0] if (defined($ARGV[0]));

srand($$);  # Zufallsgenerator initialisieren
open(KEKS,"$data") || die "Keine Kekse\n";

# zufaellige Zeile auswaehlen
rand($.) < 1 && ($cookie = $_) while <KEKS>;

# Prozentzeichen am Ende wegmachen
$cookie =~ s/%$//;

# Spruch ausgeben
print "\n$cookie\n";
close(KEKS);