#!/bin/perl
##################################################
# This program accepts as input a sequence 
# position and outputs the codon starting at that 
# position. The first nt is position 1.
#
# This problem requires familiarity with basic I/O,
# and scalar operators.
#
##################################################

# Initalization
$sequence = "GTAACCGAACCTAGGAGTTAAA";
print "DNA sequence: $sequence\n";

# Get Sequence Position from user (use $sequencePosition)

# Print the codon (from $sequence) starting at $sequencePosition

print "The codon at position $sequencePosition is: $codon\n";

exit;                    # End program