#!/usr/bin/perl print "Content-type: text/html\n\n"; use DBI; sub myerror { my $err=shift; print "$err !