my $everybody_spoke_perl = 1;
if($everybody_spoke_perl) {
  for($ALLTIME) {
    my $action = getAction();
    speakPerl if $action=="speak";
    writePerl if $action=="write";
  }
}
my $know_what_i_mean = getResponce();
i_sound_surreal() while(you're reading);