chomp ( $DNA = $ARGV[0] );