open F, $file or die;