#!/usr/bin/perl -w
# Example-2.3 Reading DNA/protein sequence data from a file 
if ($#ARGV !=1)
{
	print "usage: example2.3.pl input_file output_file\n";
	exit;
}
$inFile = $ARGV[0];
$outFile = $ARGV[1];
open (IN, $inFile) || die ("Cannot open file $inFile\n\n");
print "In progress...\n";
# read the DNA sequence data from the file, and store it into the array variable

@DNA = <IN>;
close IN;

open (OUT, ">$outFile");
print OUT ("My new output file\n");
print OUT (@DNA);
close OUT;
print "done !\n";
exit;