Select Code to Download

#!/usr/bin/perl

...
  substr($mmap,2+SEGMENT_SIZE*$segment,length)=$_;
  substr($mmap,0,1)=chr($segment);
}

#!/usr/bin/perl

...
  print $line;
  $last_seg = $segment;
}

dd if=/dev/zero bs=1 count=8192 of=mm