http://qs1969.pair.com?node_id=51585

Adapted from the folk song, of course. Compiles and runs even with warnings and strict, which is always nice.
#!/usr/bin/perl -w use strict; my $me; my $bonnie = "lies_over_the_ocean"; { my $bonnie = "lies_over_the_sea"; { my $bonnie = "lies_over_the_ocean"; { 0; bring_back(my $bonnie = 2, $me); { bring_back( bring_back( 0, bring_back(my $bonnie = 2, $me, 2, $me )));{ bring_back( bring_back( 0, bring_back(my $bonnie = 2, $me )))}}}}} sub bring_back { print "brought back my bonnie!\n" if @_ == 5; return ("",@_); }
Update: As per chipmunk's suggestion, I've modified the poem such that it runs under archaic versions of perl. ;)