#!/usr/bin/perl -wT

use DBI;

my $dbh = DBI->connect($dsn, $user, $password, { Taint => 1 });
...