#!/usr/bin/perl open (FILE, "test.txt"); while () { print "$_\n"; } close FILE;