I think you’ll see that it simply can’t be done

No surprise here, just more total bollocks!

Of course it can be done.

#! 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
1111111111111111111111111111111111111111111111111111111111111111111111
+11111111
2222222222222222222222222222222222222222222222222222222222222222222222
+22222222
3333333333333333333333333333333333333333333333333333333333333333333333
+33333333
4444444444444444444444444444444444444444444444444444444444444444444444
+44444444
[download]

Didn't your recent meditation achieve your required quota of humiliation for this week?