Skip to content

Instantly share code, notes, and snippets.

@smerritt
Created August 12, 2009 22:51
Show Gist options
  • Save smerritt/166834 to your computer and use it in GitHub Desktop.
Save smerritt/166834 to your computer and use it in GitHub Desktop.
#!/usr/bin/env perl
use warnings;
use strict;
my $upper_bound = shift @ARGV || 10;
sleep(rand($upper_bound))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment