open my $report, ">", "report.txt";