diff --git a/bin/archive-dir b/bin/archive-dir
--- a/bin/archive-dir
+++ b/bin/archive-dir
@@ -23,7 +23,7 @@ sub main {
     ['yes|y'   => "actually move stuff"],
     ['help|h'  => "print usage message and exit", {shortcircuit => 1}],
   );
-  print($usage->text), exit if $opt->help;
+  print($usage->text), exit if $opt->help || !@ARGV;
 
   archive_dir($opt, $_) for @ARGV;
 }