#!/usr/bin/perl

use strict;
use warnings;

use PrintToScreen;
use ConnectMySQL;

# just declaration
my $loglevel = 3 ;

my $pts_obj = new PrintToScreen( $loglevel );


$pts_obj->Print( 1, "Message with level 1! :-)\n");
$pts_obj->Print( 2, "Message with level 2! :-)\n");
$pts_obj->Print( 3, "Message with level 3! :-)\n");