#!/usr/bin/perl -w<
use strict;<br>
# use the -w and "use strict"
# to check more on your errors
# usefull thing for rookies
my $content = "some content";
# here asuming that the file is in the same folder
my $filename = "file_name.file_extention";
# i like the while loop better.....
my $stopper = 0;
# loop until $stopper equal 10
# opening the file for overwrite or die
# print new data
# close file
# incress $stopper value by one
while ($stopper < 10) {
 open yourfile, ">$filename" or die "\t cant open file";
 print yourfile "$content";
 close yourfile;
 $stopper++;
}
# done
# if u relly want to use do until
# replace my while loop from { to } by ..
do {
 open yourfile, ">$filename" or die "\t cant open file";
 print yourfile "$content";
 close yourfile;
 $stopper++;
} until ($stopper == 10)
#
# but a question is in my mind why the *~@ u wanna 
# overwrite a file 10 times ??????
# anyway hope i helped u a little