use Test::More qw(no_plan);

if ( @ARGV == 0 ) {
    main();
}
elsif ( @ARGV == 2 && lc( $ARGV[0] ) eq 'test' ) {
    Run_Test( $ARGV[1] );
}
else {
  die "bad arguments: the comments may help in $0\n";
}