You shouldn't get that as you are requiring the file that has sub cgierr in it.

Anyway change:

open (DB, "</web/docs/www.mysite.com/htdocs/cgi-bin/dbman/default.db") or &cgierr("Can't open db : $!");

to

open (DB, "</web/docs/www.mysite.com/htdocs/cgi-bin/dbman/default.db") or print "Can't open db : $!" and exit;

....and.........

open (F, ">$path/$bla[0].html") or &cgierr("Can't open db : $!");

to:

open (F, ">$path/$bla[0].html") or print "Can't open db : $!" and exit;