#!/usr/local/bin/perl
# Jaime Prilusky, 2006
# Perl pragma to declare constants

use constant PI => 4 * atan2(1, 1);
use constant DEBUG => 0;

  print "Pi is ",PI,"\n";

# be careful when using lists constants
use constant WEEKDAYS => qw(Sunday Monday Tuesday Wednesday Thursday Friday Saturday);

# print (WEEKDAYS)[1];     # generates error

  print "", (WEEKDAYS)[1],"\n"; # is OK