For Perl DBI installation and testing program

http://www.cedet.dk/perl/

#!c:perlbinperl

use DBI;

# Following line is necessary of you are using perl to write html in browser.

print “Content-type: text/htmlnn”;

print ““;

print “CGI Test“;

print ““;

print “

Newer Verion of File Management Operations !

“;

my $dbname = “pvmeh”; ## DB Name from tnsnames.ora

my $user = “pvmeh”;

my $passwd = “pvmeh”;

print “$dbname”;

print “
“;

#### Connect to the database and return a database handle

$dbh = DBI->connect(“dbi:Oracle:${dbname}”, $user, $passwd);

if($dbh){

print(“Connected as user $usern”);

} else {

print(“Failed to connect!n”);

exit;

}

print ““;