use CGI qw(:all); use CGI::Carp qw(fatalsToBrowser); use strict; use DBI; print header; my $dbh = DBI->connect("dbi:Oracle:host=pikachu;sid=DEVORANT", "so", "so") or die "Can\'t connect to -- $DBI::errstr\n"; print "hello world";