#!/usr/bin/perl

package ConnectMySQL

use strict;

use PrintToScreen;

my $pts_obj;

$pts_obj->Print( 3, "About to connect to mysql-database... ");
#connect blablabla
$pts_obj->Print( 3, "Done!\n");