do{
$perlstate = "rock";
print "$perlstate\n";
}
while($laziness && $impatience && $hubris == 1);