system('/usr/local/bin/AddVirtUser' => "tpasswd=$password", 
       undef, $domain, undef, $username, undef, $fullname,
       undef, 5, undef, '0 0 0', undef)