use vars qw($autor);