Select Code to Download

my $instance;
sub new
...
      bless { _usersetloglevel => $loglevel }, $class;
   };
}

my $network_connection = NetworkConnection->new;
$network_connection->set_logger( PrintToScreen->new(3) );

my $database_connection = DatabaseConnection->new;
$database_connection->set_logger( PrintToScreen->new(1) );

use strict;
use warnings;
...
}

print multiply_integers(7, 6), "\n";