Select Code to Download

[root@perlbox sandbox]# ls
file1.pl  file2.pl  memory
...

[root@perlbox sandbox]#

 use File::Map qw/:map lock_map sync/;
...
        for(my $i=0;$i<10000;++$i) { <b>$mmap = $i;</b> sync($mmap,1);
+ }
 unmap ($mmap);