# some pseudo code

my $fileno = fileno($fh);
threads->create( \&thread, $fileno )->detach;

sub thread{
  my( $fileno ) = @_;

open my $fh, ">&=$fileno" or warn $! and die;

print $fh  "thread# ",threads->tid()," ->  $fileno \n"  ;

}