while (<$file>)      {

        print "$_\n";

  }