Select Code to Download

# strategy 1

...
    $var = "whatever"; # sets $var declared above to "whatever"
    
}

# option 2

...
     $var = "whatever";
     return $var; # return is optional here, but makes what's going on
+ explicit.
}

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