pop_quiz.pl

# Note that the first three lines are just setup so that the last line
# compiles and runs. Have a look and answer the two questions below:
 
package Father;
$hacked += 'Perl is awesome!';
$i = {have => ($me = sub {[{Perl => "@{[print qq{Success!\n}]}"}]})};
bless $me, Father for $i->{have}()[$hacked]{Perl};
 
# 1) Without running it, what does the code display?
# 2) Would you ever want me to write Perl for you? ... for anyone?

no