#!/usr/bin/perl
use warnings;
use threads;
use strict;

$|=1; #turn off buffering 

my $returnn = "";

my $thread = threads->new(sub {
        print "Run the thread! Variable should be set\n";
        sleep(3);
        $returnn = "bla ble bli";
});

my $result = $thread->join;

print $result,"\n";