Adapted from the folk song, of course. Compiles and runs even with warnings and strict, which is always nice.
Update: As per chipmunk's suggestion, I've modified the poem such that it runs under archaic versions of perl. ;)#!/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 ("",@_); }
Back to
Perl Poetry