Added CLI using Getopt::Long

bin/autotest.pl

@@ -20,6 +20,7 @@
 use v5.10;
 use warnings;
 use File::Spec;
+use Getopt::Long;
 
 my $PLATFORM    = (-d "c:\\windows" ? 'windows' : 'unix' );
 my $DELAY       = 5;
@@ -28,6 +29,13 @@ my $DUMPS       = "dumps";
 my $REPEAT      = 1;
 my $TESTS       = "t";
 
+my $opts = GetOptions(
+    "delay=i"   => \$DELAY,
+    "tests=s"   => \$TESTS,
+    "dumps=s"   => \$DUMPS,
+    "repeat!"   => \$REPEAT,
+);
+
 
 sub clear {
     if ($PLATFORM eq 'windows') {