>perl -wMstrict -le
"use constant FOO => 'bar';
 ;;
 DoIt();
 ;;
 sub DoIt {
   my $it = shift // FOO;
   print qq{it is '$it'};
   }
"
it is 'bar'