use vars qw' $LEN ';