index c7728b8d211c6e1d4c8b1388dfd409193a51f6e6..0e9cffb88f60f3061202984f026a3162daef5f33 100755 (executable)
-#! /usr/bin/perl -wT
+#!/usr/bin/perl -wT
use strict;
use Getopt::Long;
-use vars qw($opt_V $opt_h $opt_H $opt_w $opt_c $PROGNAME);
+use vars qw($opt_V $opt_h $opt_w $opt_c $opt_H $opt_C $PROGNAME);
use lib utils.pm ;
use utils qw(%ERRORS &print_revision &support &usage);