"after" tasks working

1 files changed, 10 insertions, 0 deletions

diff --git a/test/module/test.pl b/test/module/test.pl
index 1fad6c7..0d5a9d0 100755
--- a/test/module/test.pl
+++ b/test/module/test.pl
@@ -8,10 +8,13 @@ STDOUT->autoflush(1);
 
 my $train;
 my $test;
+my $wait;
+my $buzz;
 GetOptions (
   "train"  => \$train,
   "test"  => \$test,
   "wait"  => \$wait,
+  "buzz"  => \$buzz,
 )
 or die("Error in command line arguments\n");
 
@@ -35,6 +38,13 @@ if ($train) {
     print "$i...\n";
     sleep 1;
   }
+} elsif ($buzz) {
+  print "we are buzzing!!!!!\n";
+  for (my $i = 0; $i < 7; $i++) {
+    print "$i...!\n";
+    sleep 1;
+  }
+  print "catch the buzzz!\n";
 } else {
   die "unknown command!";
 }