#!/usr/people/gdata/bin/perl 

#############################
#####     Start of Main  #####
#############################


$FACTS_FILE_NAME = "hot.lst";

dbmopen ( FACTDBM,
"/usr/people/.news_info/cgi-bin/$FACTS_FILE_NAME", 0666 ) || &err
( 1 );

$fact_count = $FACTDBM { 0 };

srand ( time|$$ );

$key = rand ( $fact_count  - 1 ) + 1;

$key = int ( $key );

print "Content-type: text/html\n\n";
print $FACTDBM { $key };

dbmclose (FACTDBM);

exit ();

#############################
#####     End of Main    #####
#############################


#-------#
 sub err
#-------#
     {
     print "\n\nERROR #@_[0]\n";

     print " Usage:\n\n";
     print "         fact ";
     exit ( );
     }