#!/usr/bin/perl
use Getopt::Std;
my ($miscreants, $reason) = @ARGV;
my %opts;
getopts ('u', \%opts);