#!/usr/bin/perl -w
use CGI::Carp qw(fatalsToBrowser);
use CGI qw(:standard);
use DBI;
use DBD::mysql;
use Mail::Sendmail;

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

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

print "@files\n\n";
print "$file\n\n";

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

print @data;