meh $y;
####
meh $y, 1, 2;
-#### # use feature 'state'; state $z
+#### $] < 5.010 # use feature 'state'; state $z
meh $z;
-#### # use feature 'state'; state $z
+#### $] < 5.010 # use feature 'state'; state $z
meh $z, 1, 2;
####
print;
print $y;
####
print $y "dongs\n";
-#### # use feature 'state'; state $z
+#### $] < 5.010 # use feature 'state'; state $z
print $z;
-#### # use feature 'state'; state $z
+#### $] < 5.010 # use feature 'state'; state $z
print $z "hlagh\n";
####
print STDOUT "bananananananana\n";