#!/usr/local/bin/perl
# Jaime Prilusky, 2002

  my $file = $ARGV[0] || "p53.seq";

  my($line,$sequence);         # ensures fresh and private variables
  open(IN,$file);              # open file for reading
  $firstLine = <IN>;           # read only one line
  while ($line = <IN>) {       # loops while something to read
    chomp($line);              # remove new-line character
    $sequence .= $line;        # concat read line with previous sequence
  }
  close(IN);                   # close file access

  my $len = length($sequence);
  print $sequence,"\n";
  print "length $len\n";