#!/usr/bin/perl 

package PrintToScreen;

use strict;

my $version = "0.1";

###############################
# Verbosity
# 
# 0 = Error
# 1 = Normal
# 2 = Verbose
# 3 = Debug
#
###############################


sub new
{
    my $class = shift;
    my $self = {
        _usersetloglevel => shift,
    };

    
    my $usersetloglevel = $self->{_usersetloglevel};
    if ($usersetloglevel >= 3) {
		print "$class $version started with loglevel $usersetloglevel\n";
	}
    bless $self, $class;
    return $self;
}

sub Print {
	my ( $self, $msglevel, $message ) = @_;
	if ($msglevel <= $self->{_usersetloglevel}) {
		print "$message";
	}
}

1;

##</code><code>##

#!/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");

##</code><code>##

#!/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");