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;