use threads;

my $t = threads->create( 
    sub{ sleep 10; return join $;, 'fred', 1, 1.123 } 
);

print split $;, $t->join;