use vars qw/$VAR1/;

$VAR1 = {
  'network' => {
                 'host' => {
                             'name' => 'localhost',
                             'port' => 5000
                           },
                 'firewall' => {
                                 name => 'telnet-gw.somewhere',
                                 port => 23,
                                 prompt => 'on the line below.',
                                 command => "c <HOST> <PORT>",
                                 'use' => '0'
                               }
               },
  'talker' => {
                'username' => 'statusbot',
                'password' => 'statusbot',
                'loginsuccess' => 'No topic has been set yet',
                'loginfail' => 'Incorrect login',
                'usernameresponse' => '<USER>',
                'passwordresponse' => '<PASS>',
                'usernameprompt' => 'Give me a name',
                'passwordprompt' => 'Give me a password',
                'trigger' => '^(.+) tells you: (.+)$',
              },
  'bot' => {
             'tracing' => 1,
             'Admin' => {
                          'Password' => 'pauONM/HSu9pM',
                          'Group' => [
                                       'Fred',
                                       'john'
                                     ]
                        },
             'Commands' => {
                             'Say' => '',
                             'Tell' => '> ',
                             'Quit' => '.quit',
                             'Shout' => '! ',
                             'PEmoteList' => '<:>',
                             'EmoteList' => '<>',
                             'SayList' => '>>',
                             'Emote' => ': ',
                             'PEmote' => ':: ',
                             'REmote' => '< ',
                             'PREmote' => '<: ',
                           },
             'onLogin' => [
                            '.set term client',
                            'Hello world'
                          ],
             'onLogout' => [
                             'Goodbye all'
                           ]
           },
  'commands' => {
                  'dump' => {
                              'help' => [
                                          'Syntax: dump <password>',
                                          'Returns the current talker object as Data::Dumper output'
                                        ]
                            },
                },
};

1;