Poetry in perl

Though leaves are many, the root is one;
Through all the lying days of my youth
I swayed my leaves and flowers in the sun;
Now I may wither into the truth

written in Perl as

while ($leaves > 1) {
 $root = 1;
}
foreach($lyingdays{'myyouth'}) {
 sway($leaves, $flowers);
}
while ($i > $truth) {
 $i--;
}
sub sway {
 my ($leaves, $flowers) = @_;
 die unless $^O =~ /sun/i;
}

See more examples at Perl Poetry Contest