A
\@users
open (INFO,"/home/tfe/truc/newirc/datanick/full.dat") or print STDOUT "$chan :error=> $!\n";
while (<INFO>)
{
print "PRIVMSG $chan :$_\n";
}
close USER;