open( LOG, $filepath ); while ( ) { print } close( LOG );