>>465
http://perldoc.jp/docs/perl/5.10.1/perlfaq5.pod#How32come32when32I32open32a32file32read-write32it32wipes32it32out63