#!/usr/bin/perl -w use strict; use CGI::Carp qw/fatalsToBrowser/; use CGI qw/:standard/; #======OK, $data set up. Now print header, start_html and JavaScript stuff====== print header(); print start_html(); print "hello niko";