Help for this page

Select Code to Download


  1. or download this
    #! perl -slw
use strict;
...
print FILE 'Some stuff ', $_ for 1 .. 1000;

#threads->new( \&t )->join;
  2. or download this
    #! perl -slw
use strict;
...
    print( FILE $_ ) 
        or die "Writing to FILE : $!";
}