#!/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 Connect to MySQL Server: $DBI::errstr\n"