This is a perl script to read the SAM output streaming from bowtie STDIN, then add NH tag, remove unmapped read, and remove secondary read and stream to STDOUT.