open (INFILE, '<', 'textfile.txt');
while (<INFILE>)
{
  chomp;
  print "$_\n";
}
close (INFILE);