Select Code to Download

Select or download this

 if (defined $ref)  {
  print "REF: $ref <br> \n";
...
         }

          print "MYHASH: $_ $data{$_} <br> \n" for (sort keys %data); 
+exit;

Select or download this

REF: $VAR1 = { 'KeyWordMapper:Modify' => 'notify', 'DispatchHistory:Re
+store' => 'notify', 'BuildReport:CSETicketSummary' => 'notify', 'Agen
+da:StatusRestore' => 'notify', 'BuildReport:SQATestDetails' => 'notif
+y', 'Agenda:Create' => 'notify' };