use strict;
use warnings;
use Config;
use DBI;

my $dsn = 'DBI:ODBC:somedb';
my $db_user = '';
my $db_pass = '';

my $dbh = DBI->connect($dsn,$db_user,$db_pass ) or die $DBI::errstr;

my $loh = $dbh->selectall_hashref('select 1 as a, 2 as b','a');

print "checking d_symlink\n";
print "found\n" if ($Config{d_symlink});

print "checking d_readlink\n";
print "found\n" if ($Config{d_readlink});

print "checking d_link\n";
print "found\n" if ($Config{d_link});

print "checking d_symlink && d_readlink\n";
print "found\n" if (($Config{d_symlink} && $Config{d_readlink}));

print "checking (d_symlink && d_readlink) || d_link)\n";
print "found\n" if (($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link});

print "All done.\n";

$dbh->disconnect;

##</code><code>##

checking d_symlink
checking d_readlink
checking d_link
found
checking d_symlink && d_readlink
checking (d_symlink && d_readlink) || d_link)
found
Attempt to free unreferenced scalar: SV 0x1a61cdc, Perl interpreter: 0x223ecc at copytest.pl line 26.
All done.