read(IN, $buffer, 1000000);
push @mysegments, new MyPackage::MySegment($buffer);
print "+$buffer+"; # gives ++