#!/usr/bin/perl

use DBI;

$dbh = DBI->connect("DBI:mysql:games2000:194.87.240.21:3306", "games2000", "t1am47");

$dbh->disconnect;