$self->{FuzzData} = { _Letters => { __data => [ # a lot of data here ], __example => qr/(\w{1})/ }, _Formats => { __data => [ # again data ], __example => qr/(%\w{1})/ }, _Numbers => { __data => [ # and again ], __example => qr/(\d{1)}/ } }; $self->{ProtoData} = { _ActionData => { __ActionCmd => [], __ActionExit => undef, __ActionTemplate => undef }, _LoginData => { __LoginUser => undef, __LoginPass => undef, __LoginSuccess => undef, __LoginTemplate => undef }, _ProtoPresets => { ftp => \&{ $self->_LoadPresetFTP }, http => \&{ $self->_LoadPresetHTTP }, pop3 => \&{ $self->_LoadPresetPOP3 }, smtp => \&{ $self->_LoadPresetSMTP } } };