GetOptions(
           'demo' => sub{demo();},
           'test' => sub{test();}
          )
  or die("Error in command line arguments\n");