open ($input, $ARGV[0]) or die ("Could not open input file $ARGV[0].\n"); 

while ($line = <$input>) { 
 chomp($line);
 unless ($line =~ m/>/) { 
  $line = uc($line);
  $seq .= $line;
  }
 }