# program to generate the reverse complement of DNA strand

#open data file
if (open(DNAInputFile, 'DNA_seq.txt')) {
	print "File DNA_seq.txt opened OK \n";
}
else {
	print "Cannot open file DNA_seq.txt\n";
	exit;
}

#read from file, store as array  @ for array variable
@DNA_array = <DNAInputFile>;
close DNAInputFile;  #close the input file
$DNA = join('',@DNA_array);   #convert array of chars to string

print "Here is the starting DNA sequence: \n".$DNA,"\n";  
$DNA =~ s/T/U/g;   

print "Here is the result of transcribing the DNA to RNA: \n";
print "$DNA\n";

exit;