open (Rule, ">>$report") || die "can not open $report"; print Rule "\n"; print Rule "\n"; print Rule "\n"; print Rule "\n"; print Rule "\n";