poem
PhillipHuang
<p>My first try.</p>
<code>
#!/usr/bin/perl
use strict;
use warnings;
my $blossoms;
my $orioles_sound;
my $frog_sound;
my $listen;
my $count;
$blossoms = "fallen";
if($blossoms eq "fallen"){
print "No one cares the $blossoms blossoms.\n";
print "Only shades of trees spreading.\n\n";
}
$frog_sound = "frogs croaking";
$orioles_sound = "orioles singing";
$count = 12;
while($count > 0){
$listen = join(',',$frog_sound,$orioles_sound);
print "There are $listen.\n";
$count--;
if($count == 0){
$listen = $frog_sound;
print "\nOrioles emit no more sound.\n";
print "I alone listen to $listen.\n";
}
}
</code>