adminsuidsetup shift or die "usage: billco-upload username agentnum\n";
my $agentnum = shift or die "usage: billco-upload username agentnum\n";
adminsuidsetup shift or die "usage: billco-upload username agentnum\n";
my $agentnum = shift or die "usage: billco-upload username agentnum\n";