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

die if $len > length($seq);

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

I presume you know how to create and write to a file.