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

$cookie_out = cookie(-name=>'test', -value=>'Nikolas');

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


$cookie_in = cookie('test');


if ($cookie_in)
{
   print $cookie_in;
}
else
{
   print "Can't find the cookie!";
}