open( HANDLE, "<file");
while( my($line) = <HANDLE> )
{
   print $line;
}