#!/usr/bin/perl -w use Scalar::Util qw(readonly); my $constant="immutable"; print "scalar is ",(readonly($constant)?"constant":"variable"),"\n"; Internals::SvREADONLY($constant => 1); print "scalar is ",(readonly($constant)?"constant":"variable"),"\n";