Added perl revcmp function; Added bam-sample