#!/usr/bin/perl
use strict;
use DBI;
$host = "dbhost";
$database = "dbname";
$port = dbport;
$tablename = "tablename";
$user = "dbuser";
$pw = "dbpassword";
$dbh = DBI->connect("DBI:mysql:database=$database;host=$host;port=$port",$user, $pw) or die "Unable to