BEGIN {
   $] >= 5.010
      or die "Perl v5.10.0 required--this is only $^V, stopped";
}

use feature qw( array_base say state switch );