Is there any bioperl modules/programs that make short reads out of an input sequence file? e.g. input: a genome of 3Mb fasta file output: a read sequence fasta file with parameters: i) read length (either fixed, or in a range) ii) proportion of sampling (e.g. randomly select 30% coverage of the input file)