Help for this page

Select Code to Download


  1. or download this
    use constant DEBUG => 0;

...
}

print "1 + 1 = ", (1 + 1), "\n";
  2. or download this
    use constant ('DEBUG', 0);
do {
    print 'Calculator...'
};
print '1 + 1 = ', 2, "\n";
  3. or download this
    use Readonly;
Readonly my $DEBUG => 0;
...
}

print "1 + 1 = ", (1 + 1), "\n";
  4. or download this
    use Readonly;
Readonly my $DEBUG, 0;
...
    print 'Calculator...';
}
print '1 + 1 = ', 2, "\n";