print header( -charset=>"iso-8859-7" );
print start_html( -title=>"Ψυχωφελή Πνευματικά Κείμενα!", -background=>"../data/images/night.jpg" );

##</code><code>##

@files = <../data/texts/*.txt>;
$file  = $files[int(rand(@files))];

open(IN, "<$file") or die $!;
   @data = <IN>;
close(IN);