my $i = 0;
while ($i < 5) {
   open (OUT, '>oops.txt') || die "NO GO: $!\n";
   print OUT $i;
   $i++;
}