Perl script to generate a random psuedo DNA sequence !
By Abhinav 2873 days ago
#!/usr/bin/perl
print "Enter a number of nucleotides: \n";
chomp ($N = <STDIN>);
@b=qw/A T G C/;print ">Genome\n";while($l<$N){print @b[int(rand(4))];$l++;};
print "\n"
