c:\@Work\Perl\monks>perl -wMstrict -le
"if ('night' eq 'day') {
   use constant FOO => 42;
   }
 ;;
 print FOO;
"
42