Select Code to Download

#!/usr/bin/perl
use strict;
...
}
                                                                      
+                                                            
print Dumper(\%srciphash),"\n";

$VAR1 = {
          '10.10.20.1' => {
...
                            '10.10.10.3' => 'dns'
                          }
        };