#!/usr/bin/perl -w
use DBI;

#connect to DB
$dbHandle = DBI->connect('DBI:mysql:mydb','ID','pw');