Select Code to Download

 "`->'" is an infix dereference operator, just as it is in
       C and C++.  If the right side is either a `[...]',
...
       subroutine reference, and the left side must be either an
       object (a blessed reference) or a class name (that is, a
       package name).  See the perlobj manpage.

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"'