use strict;
use warnings;
use threads;

my $thread = threads->create(sub {
    sleep 3;
    return "bla ble bli";
});

print "Result: ", $thead->join(), "\n";