use strict;
use warnings;
use XML::Simple;

my $VAR1 = {
          'database' => {
                        'password' => '1234',
                        'type' => 'mysql',
                        'username' => '123',
                        'host' => '127.0.0.1'
                      },
          'tables' => {
                      'user' => 'users'
                    }
        };

print XMLout( { config => $VAR1 }, AttrIndent => 1, KeepRoot => 1, NoAttr => 1 );