Ajouter date dans un log

Hello !
j'ai un petit programme qui me rajoute dans un fichier log toutes les actions effectuées.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
[2006.04.10 13:43:22
] fichier done
[2006.04.10 13:44:01
] fichier done
[2006.04.10 13:44:01
] gfgdfgdge
[2006.04.10 13:44:01
] gfdfgfgdggdfdggfdg
[2006.04.10 13:44:01
] fichier done
[2006.04.10 13:44:01
] fichier done

au lieu de

Code:

1
2
3
4
5
6
[2006.04.10 13:43:22] fichier done
[2006.04.10 13:44:01] fichier done
[2006.04.10 13:44:01] gfgdfgdge
[2006.04.10 13:44:01] gfdfgfgdggdfdggfdg
[2006.04.10 13:44:01] fichier done
[2006.04.10 13:44:01] fichier done

Voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
package module_log; 
 
sub WriteLog{
my $txt  = $_[0];
my $Dir  = $balsa_conf::balsa_log_file;
my $date = `date '+%m %d %H:%M:%S'`;
my $LOG = "[$date] $txt";
 
print $LOG;
#	open (FIC,">>$Dir/balsa.log") || die ("Error writing Log file");
#	print FIC "[$DATE] $txt\n";
#	close(FIC);
}

Si qqun a une idée du pkoi du comment.. :D Merci !