#!/usr/bin/perl -T

use warnings FATAL => 'all';
use strict;
use DBI;
use CGI;

my( $dsn, $username, $password ) = qw( you tell me );

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

my $q = CGI->new;

print $q->header, $q->h1( "Looks like we connected to $dsn!" );

exit;