#! perl -slw
use strict;
use threads;

open my $fh, '>', 'junk.dat' or die $!;
$_->join for map {
    async {
        seek $fh, $_ *80, 0;
        print $fh $_ x 78;
    };
} 1 .. 4;
close $fh;

open $fh, '<', 'junk.dat' or die $!;
print while <$fh>;
close $fh;

__END__
C:\test>t-write.pl
111111111111111111111111111111111111111111111111111111111111111111111111111111
222222222222222222222222222222222222222222222222222222222222222222222222222222
333333333333333333333333333333333333333333333333333333333333333333333333333333
444444444444444444444444444444444444444444444444444444444444444444444444444444