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