#!/usr/bin/perl
#
# This is a demo script to illustrate the tcgraph java applet.
# It takes the seconds since the epoch to generate 3 increasing numbers

use CGI qw (:standard) ;

print header () ;
$time = time () ;
$time = $time - 1046350373 ; # We have to do this is the returned number is not too big
$ret1 = int ($time * 100 ) ;
$ret2 = int ($time * 50 ) ;
$ret3 = int ($time * 10 ) ;

print "$ret1\n" ;
print "$ret2\n" ;
print "$ret3\n" ;