#!/usr/local/bin/perl5

#===========================================================
# Program : test
#-----------------------------------------------------------
# Author  : R. BERTHOU  rbl@berthou.com
# Web     : http://www.javaside.com
#-----------------------------------------------------------
#===========================================================

###########################
# libraries
###########################


do display() ;


###########################
# functions
###########################
sub display
{ 
   # send http header 
   print ("Content-Type: text/txt\n\n") ;

   print ('title ; Generate with perl ', "\n") ;
   print ('col ; Result ; 8421600 ', "\n") ;
   print ('col ; Data   ;    -255 ', "\n") ;
   print ('1/1/1998 ; -1 ;  0 ', "\n") ;
   print ('1/2/1998 ;  1 ;  2 ', "\n") ;
   print ('1/3/1998 ; -2 ; -1 ', "\n") ;
   print ('1/4/1998 ; -3 ; -1 ', "\n") ;
   print ('1/5/1998 ; -2 ; -3 ', "\n") ;
   print ('1/6/1998 ; -1 ;  1 ', "\n") ;
   print ('1/7/1998 ;  1 ;  3 ', "\n") ;
}

###########################
# end
###########################