use DBI;
use Sprog::PrintProxy;
use DBPrinter;

my $dbh = DBI->connect("dbi:Oracle:", "uid", "passwd")
           or die "$!:  Can't connect to DB";

my $fh = Sprog::PrintProxy->new( DBPrinter->new($dbh, "/some/directory", "outfile.txt", "dblinkname") );