# for global variables:
use vars qw(@users $account);