use vars qw($frobbed @munge %seen);