#!perl -w
#  ^  you may need that first line 
# my local Apache server does...

use DBI;
use CGI qw/:standard/;

print header;