1;

##</code><code>##

use vars qw/$v1 ..... $variable $flag/;