random: small tidy

Variable $warnings does not vary so delete it.

Author: mknos

bin/random

@@ -17,7 +17,6 @@ use Getopt::Std;
 
 my ($VERSION) = '1.3';
 
-my $warnings = 0;
 my %options;
 getopts('er', \%options) or usage();
 my $denominator = shift;
@@ -32,8 +31,7 @@ $| = 1 if exists $options {r};
 my $frac = 1 / $denominator;
 
 while (<>) {print if $frac >= rand;}
-
-exit $warnings;
+exit 0;
 
 sub usage {
     warn "usage: $0 [-er] [denominator]\n";