#!/usr/bin/perl

use lib 'home/public_html/';
use DBI;
use CGI;

$q = new CGI;

...................................................