Probably no, at least it's not documented in perldoc threads.

Install ruby, create a ruby thread, and than you can use the alive? method of a Thread to see if it's finished yet.

Update: A straightforward translation of your code to ruby is:

#!ruby -w

thread = Thread.new { sleep 10; puts "Ok"; };
i = 0;
while true;
        i += 1; puts "#{i} - #{thread}";
        if !thread.alive?; break; end;
        sleep 1;
end;

__END__
[download]