#! perl -slw
use strict;
use threads;

sub t{ sleep 10; close FILE or die "Error closing FILE : $!" };

threads->new( \&t )->join;

open FILE, '>', 'junk.dat' or die "junk.dat: $!";
print FILE 'Some stuff ', $_ for 1 .. 1000;

#threads->new( \&t )->join;