in reply to Global symbol "$isenchere" requires explicit package name at UserAction.pm line 416.
my ($isenchere)=sqlSelect("enchere", "article", "id_article = '$isenchere'");
You're defining it on the left side and passing it as a part of an argument to sqlSelect on the right...
In Section
Seekers of Perl Wisdom