#!/usr/bin/perluse warnings;use strict;use vars qw($constantstring); *constantstring=\"immutable"; print $constantstring; $constantstring='no!';