a	b	c	d	e	f
2a	2b	2c	2d	2e	2f
3a	3b	3c	3d	3e	3f

##</code><code>##

use strict;
use warnings;

open JIM, ">>c:/perl/testa.txt" or die "Rats : $!";

print JIM "<FileName>\ttesta.txt\t4c\t4d\t4e\t4f\n";

close JIM;

##</code><code>##

a	b	c	d	e	f
2a	2b	2c	2d	2e	2f
3a	3b	3c	3d	3e	3f
<FileName>	testa.txt	4c	4d	4e	4f