#!perl -w use strict; # Storing DNA in a variable, and printing it out # First we store the DNA in a variable called $DNA # using strict requires all variables be declared # The keyword "my" is for a local variable my $DNA = 'ACGGGAGGACGGGAAAATTACTACGGCATTAGC'; print_dna($DNA); # An exit of zero on most operating systems is success # Positive numbers are for user errors # Negative numbers are for system errors exit(0); # sub to print the DNA onto the screen sub print_dna { my $dna = shift; print $dna,"\n"; }