open my( $FR ), '<', $filename ...