#!/usr/bin/perl

open(P,"perl ./dsnwrapper.pl|");
binmode(P);
my($dsn)=${(thaw(join('',<P>)))[0]}{DSN};
close(P);
my($dbh)=DBI->connect($dsn) || die(DBI->errstr);