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

##</code><code>##

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

$|=1; #turn off buffering 

my $returnn : shared; #declare as shared before setting value 
$returnn = '';

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

while(1){
  if($returnn eq ''){
       print "No return yet\n";
       sleep 1;
   }else{
   print "return->$returnn\n";
   last;
   }
}

print "Hit enter to exit\n";
<>;