Select Code to Download

An "our" declaration declares a global variable
that will be visible across its entire lexical
...
package in which the variable is entered is
determined at the point of the declaration, not at
the point of use.

perl -e 'print "How sweet does a rose smell? "; chomp ($n = <STDIN>); 
+$rose = "smells sweet to degree $n"; *other_name = *rose; print "$oth
+er_name\n"'