use boolean;

$debug = boolean->new(1);
print "hi\n" if $debug;
$debug->flip;
print "bye\n" if $debug;