my $seq = ...;
my $len = ...;

die if $len > length($seq);

my $start = rand( length($seq) - $len + 1 );
my $subseq = substr( $seq, $start, $len );