Select Code to Download

Select or download this

#!/usr/bin/perl
use strict;
...
my $dbh = DBI->connect($DSN, $user, $password,
                      { RaiseError => 1, AutoCommit => 0 });
print "This doesn't\n";

Select or download this

DB connectivity test
This works
DBI connect('host=127.0.0.1:sid=ps.kadaster.local:port=1521','system',
+...) failed: ORA-12154: TNS:could not resolve the connect identifier 
+specified (DBD ERROR:
 OCIServerAttach) at conn_test.pl line 16.