#!/usr/bin/perl
use strict;
use warnings;
use lib ('/home/billing/xxx/lib');
use VZBILL;
use CGI::Fast qw(:standard);

my %init = (
  'brand'               =>      'xxx',
  'db'                  =>      'xxx',
  'dbu'                 =>      'xxx',
  'dbp'                 =>      'xxx',
  'dbho'                =>      'xxx',
);

while (my $query=new CGI::Fast) {
  print (STDERR "action: " . $query->param('action') . "\n");
  my $vzbill=new VZBILL($query,\%init);  
#  $vzbill->go;
}