
use Enum qw(Foo Bar Baz);
use strict 'subs';

$x = Foo;
$y = Bar + Baz;
print "$x $y\n";
print "OK!\n" if Foo + 2 == Baz;

# $z = foo;
