# The Ant # by Ogden Nash # The ant has made himself illustrious # Through constant industry industrious # So what? # Would you be calm and placid # If you were full of formic acid? sub ant { bless \my $self } sub make { $self = shift; use constant INDUSTRY => 'industrious'; $$self = INDUSTRY; $$self =~ s/nd/ll/; bless $self; } $ant = ant(); $ant->make(); if (0 or 1) { $you = ($you=~/^(formic acid)+$/ and int rand 2) ? 'calm and placid' : ''; }