print usage if no arguments

[lab.git] / misc / httpbench.pl

diff --git a/misc/httpbench.pl b/misc/httpbench.pl
index c36ed64..78191dd 100755 (executable)
--- a/misc/httpbench.pl
+++ b/misc/httpbench.pl
@@ -9,6 +9,8 @@ use Parallel::ForkManager;
 use LWP::Simple;
 use Time::HiRes qw(sleep);
 
+usage() if (@ARGV == 0);
+
 GetOptions(
     'h|help'            => \ my $help,
     'i|inputfile=s'     => \ my $file,