Enviroment Dumper

#!/usr/bin/perl # ed.pl use warnings; use strict; use DBI; print "Content-type: text/html\n\n"; print "Enviroment Dumper "; my ($CDS, $UPDATE, $id, $text, $sqlquery, $prodnum, $catid, $catnum, $sqlquery1, $description, $count, $pccount, $sqlquery2,$sqlquery3, $cecount ); my (@list, @count, @pccount, @cecount); # DATABASE CONNECT*************************************** $CDS=DBI->connect('DBI:ODBC:claudonntCDS', 'xxxx') || die "error opening database: $DBI::errstr\n";