This is a perl script to random sample sequences from a fastq file according to user defined number of sequences. Single- ane pair-end are supported.