use warnings;
use Data::Dumper;

my $slurp = do { local $/; <DATA>; };
eval $slurp;

no warnings 'once';
print Dumper( \%hash_of_att_db );

__END__
our %hash_of_att_db
    = (
       '0x40e00600' => {
           'attack_type'   => 'backdoor',
           'attack_port'   => '',
           'attack_sig'    => 'lib/attackprolib/fice-2000.dmp',
           'attack_sig_v6' => 'lib/attackprolib/fice-2000.dmp',
       },
       '0x40e00500' => {
           'attack_type'   => 'backdoor',
           'attack_port'   => '',
           'attack_sig'    => 'lib/attackprolib/mpnewdump',
           'attack_sig_v6' => 'lib/attackprolib/6_bionet.dump',
       },
       );

##</code><code>##

$VAR1 = {
          '0x40e00500' => {
                            'attack_sig_v6' => 'lib/attackprolib/6_bionet.dump',
                            'attack_port' => '',
                            'attack_type' => 'backdoor',
                            'attack_sig' => 'lib/attackprolib/mpnewdump'
                          },
          '0x40e00600' => {
                            'attack_sig_v6' => 'lib/attackprolib/fice-2000.dmp',
                            'attack_port' => '',
                            'attack_type' => 'backdoor',
                            'attack_sig' => 'lib/attackprolib/fice-2000.dmp'
                          }
        };