use vars qw($change $alter);