#!/usr/bin/perl no utf8; # Net::Radius test input # Made with $Id: rsa-aa-01.p,v 1.3 2007/01/09 20:01:04 lem Exp $ $VAR1 = { 'packet' => '3rdKb6yˁPASSCODE Accepted  rcarpi01', 'secret' => undef, 'description' => 'RSA ACE/Server 6.0 [020] RADIUS (on Solaris 9) - Access-Accept', 'authenticator' => 'rdKb6yˁ', 'identifier' => 135, 'dictionary' => undef, 'opts' => { 'output' => 'packets/rsa-aacr-01', 'description' => 'RSA ACE/Server 6.0 [020] RADIUS (on Solaris 9) - Access-Accept', 'authenticator' => 'rdKb6yˁ', 'identifier' => 135, 'dont-embed-dict' => 1, 'dictionary' => [ 'dicts/dictionary' ], 'slots' => 2 }, 'slots' => 2 };