Help for this page

Select Code to Download


  1. or download this
    use constant TWO => 2;  
$x = TWO; 
print "$x ${\TWO}\n";
  2. or download this
    use constant TWO => qw( one three );
$x = TWO; 
print "$x ${\TWO}\n";
  3. or download this
    use constant TWO => qw( one three ); 
$x = TWO; 
print "$x ${\scalar TWO}\n";