#!/usr/bin/env perl
use strict;
use lib qw(./Callback/build/lib/perl5/i386-linux-thread-multi/);
use threads;
use threads::shared;

use Data::Dumper;

use Callback;

use constant MESSAGE => "Hellow world!!!\n";

my $obj = new Callback (\&printHellow);

my $thread = threads->create(sub {$obj->run(&MESSAGE)})
    or exit(1);
$thread->join();


sub printHellow
{
    my $message = shift;

    print "MESSAGE: $message\n";
}