3 use FS::UID qw(adminsuidsetup);
11 my $pid = open(KID_TO_WRITE, "-|");
22 adminsuidsetup $user or die;
24 my $svc_acct = new FS::svc_acct ( {
25 'svcpart' => $svcpart,
26 'username' => "dup$counter",
28 my $error = $svc_acct->insert;
29 warn $error if $error;