#!/usr/bin/perl -w
# Example-1   Storing DNA in a variable, and printing it out

# First we store the DNA in a variable called $DNA
$DNA = 'ACGGGAGGACGGGAAAATTACTACGGCATTAGC';

# Next, we print the DNA onto the screen
print $DNA."\n";

# Finally, we'll specifically tell the program to exit.
exit;