#!/usr/bin/perl

use strict;
use warnings;
use Log;
use Foo;

my $log = Log->new( { 'logfile' => 'log.txt', 'caller' => $0 } );
my $foo = Foo->new();

...
# do some stuff

$foo->printNum(5);