foreach my $server (@servers ){
   my %account = (
        server => "\\\\$server",
        user => "Test",
        password => "12345678",
        homedir  => "",
        priv => USER_PRIV_USER,
        flags => UF_SCRIPT |UF_TEMP_DUPLICATE_ACCOUNT,
        comment  => "Test",
        logon => "",
        );

    unless (Win32::NetAdmin::UserCreate(@account{ qw/server user password/}, 0, @account{ qw/priv homedir comment flags logon/})) 
    {
        print LOG "$server,Problem,Unable To Create Account,".Win32::NetAdmin::GetError().",".localtime()."\n";

        ++$errorct;
    } else {
        print LOG "$server,Good,Added Account,".localtime()."\n";
        ++$goodct;
    }
}