#!/usr/bin/perl -w
# Example-2 Reading DNA/protein sequence data from a file 

# The filename of the file containing the DNA sequence data

$filename = "ex2.dna";
# First we have to "open" the file
open(IN, $filename); #IN – file handle

# Read the sequence data from the file, and store it
# into the array variable @dna
@dna = <IN>; 

# Print the seq onto the screen
print @dna;
print "\n";

# Close the file.
close IN;

exit;