A
\@reload
	foreach(split(" ",$fichiers_a_charger))
	{
		print STDOUT "$_\t";
		do "$_" or print "PRIVMSG $chan :[ERREUR] $!";
		print STDOUT "[OK]\n";
	}