Stuff

<418>:perl channels.pl
$VAR1 = {
          'channels' => {
                        'IAX2/switch-3-6' => [
                                             'IAX2/switch-3-6',
                                             '',
                                             's',
                                             '1',
                                             'Up',
                                             'Bridged Call',
                                             'SIP/16-ec48',
                                             '996',
                                             '',
                                             '3'
                                           ],
                        'SIP/16-ec48' => [
                                         'SIP/16-ec48',
                                         'default',
                                         '996',
                                         '2',
                                         'Up',
                                         'Dial',
                                         'IAX2/guest@switch-3/996',
                                         '5551212',
                                         '',
                                         '3'
                                       ]
                      }
        };