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

##</code><code>##

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