use Readonly;
Readonly my $DEBUG, 0;
if ($DEBUG) {
    print 'Calculator with debugging...';
}
else {
    print 'Calculator...';
}
print '1 + 1 = ', 2, "\n";