Select Code to Download

#!perl
use 5.020;
...
say "Miscreants: $miscreants";
say "Reason: $reason";
say "-u set: " . $opts{'u'};