#!/usr/bin/perl

no utf8;

# Net::Radius test input
# Made with $Id: cisco-vpn3k-ar.p,v 1.1 2007/01/30 10:23:14 lem Exp $

$VAR1 = {
          'packet' => 'D£D·2ú`{OAF”\'“<testÚà¯}¦§DS"ïèö[ ¡ÄG\'=',
          'secret' => '',
          'description' => 'Cisco VPN-3000 Access-Request',
          'authenticator' => '£D·2ú`{OAF”\'“<',
          'identifier' => 3,
          'dictionary' => undef,
          'opts' => {
                      'secret' => '',
                      'description' => 'Cisco VPN-3000 Access-Request',
                      'output' => 'packets/cisco-vpn3k-ar',
                      'authenticator' => '£D·2ú`{OAF”\'“<',
                      'identifier' => 3,
                      'dont-embed-dict' => 1,
                      'dictionary' => [
                                        'dicts/dictionary',
                                        'dicts/dictionary.cisco.vpn3000'
                                      ],
                      'slots' => 4
                    },
          'slots' => 4
        };


syntax highlighted by Code2HTML, v. 0.9.1