Select Code to Download

sub f { &g; print @_; } sub g { $_[0] .= "o, w"; push @_, "orld\n"; } 
+f($x = "hell");

sub f { g(@_); print @_; } sub g { $_[0] .= "o, w"; push @_, "orld\n";
+ } f($x
= "hell");