#!/usr/bin/perl no utf8; # Net::Radius test input # Made with $Id: cisco-acs-ar-03.p,v 1.3 2007/01/09 20:01:04 lem Exp $ $VAR1 = { 'packet' => 'ÚVGߎ]â¥(­rðl¹àamaderÈmo# CiscoSecure ACS v4.0(1.27)ê´Z 9RCã#"}Ëæ', 'secret' => undef, 'description' => 'CiscoSecure ACS v4.0 (1.27) - Access-Request', 'authenticator' => 'Gߎ]â¥(­rðl¹à', 'identifier' => 218, 'dictionary' => undef, 'opts' => { 'secret' => undef, 'output' => 'packets/cisco-acs-ar-03', 'description' => 'CiscoSecure ACS v4.0 (1.27) - Access-Request', 'authenticator' => 'Gߎ]â¥(­rðl¹à', 'identifier' => 218, 'dictionary' => [ 'dicts/dictionary' ], 'dont-embed-dict' => 1, 'noprompt' => 1, 'slots' => 5 }, 'slots' => 5 };