######################################################################
######################################################################
sub main
{
   my $gen_public = 0;
   my $version = "0.1";
   while ($arg = shift @ARGV)
   {
      $gen_public  = 1 if ($arg eq "-p");
      if ($arg eq "-v")
      {
         $version = shift @ARGV;
		$XLFILE =~ s/v0\.1/v$version/g;
      }
   }
   # .... rest elided
}