Select Code to Download

+    my $keyword = 0;
+    my $usage   = 0;
...
     }
+    warn("No warning categories specified for FATAL or NONFATAL")
+        if $usage;

use warnings FATAL => @fatals;