use POSIX qw(strftime);
use Encode;


print header( -charset=>'utf8' );
print start_html( -style=>'/data/css/style.css',
                  -title=>'Ψυχωφελή Πνευματικά Κείμενα!' );

my ($select, $row, $data);
my $date = strftime('%y-%m-%d %H:%M:%S', localtime);

my $display_date = strftime('%a %d %b, %I:%M %p', localtime);
Encode::from_to($display_date, 'ISO-8859-7', 'utf8');

my $host = gethostbyaddr (pack ("C4", split (/\./, $ENV{'REMOTE_ADDR'})), 2) || $ENV{REMOTE_ADDR};
$host = "Νίκος" if ( ($host =~ /dell/) or ($host =~ /dsldevice/) or ($host =~ /localhost/) );