#!/usr/bin/perl
use CGI;
$q=new CGI;

$categoryurl="/home/kyritsakis/public_html/cgi-bin/phrases.db";

open (FILE,"$categoryurl");
@lines=<FILE>;
close(FILE);

$num=$#lines;
$n=int(rand($num));

$sel=$lines[$n];
$sel=~ s/\s+$//;


print "Content-Type: application/x-javascript\n\n";
print "document.write(\"";

print "<center><b><font face=Verdana size=3>$sel</font></b>";

print "\")\n\n";



#<script type="text/javascript" src="http://www.kyritsakis.gr/cgi-bin/phrotate.pl"></script>