By the way, I note that you are adding a line break to your print statement without using chomp; This will give you more line breaks than you (possibly) intended...

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