ALL
\@site
print "PRIVMSG $chan :Site de \#perl: http://les-bonbons.homelinux.net/home.pl\n";