diff --git a/bin/random b/bin/random
index f1fc3d36..35f15c47 100755
--- a/bin/random
+++ b/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";