use vars qw/$opt_J ... and so on .../;