J'ai un petit problème de print , je cherche comment écrire entre trois ligne

J'ai une amorce de fichier xml

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
<?xml version="1.0" encoding="utf-8" ?>
 
<base>
 
</base>
je voudrais écrire des informations entre <base> et </base>

Voici le bout de code qui pose problème

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
sub print_xml
{
  open (FILE, ">>report.xml");
  flock(FILE, 2); #verouillage
  print FILE "\n";
  print FILE "<base>\n";
  print FILE "<hack>\n";
  print FILE "<ip>$ip</ip>\n";
  print FILE "<date>$date</date>\n";
  print FILE "<ref>$ref</ref>\n";
  print FILE "<domain>$domain</domain>\n";
  print FILE "<port>$port</port>\n";
  print FILE "<method>$method</method>\n";
  print FILE "</hack>\n";
  close (FILE);
  flock(FILE, 8); #deverouillage
}
merci de vos réponses