sub findJob { while($seemsLikeForever) { if($jobUses eq 'only MicroShaft products') { cry("like a baby!"); }elsif($jobUses eq 'planning on Open Source some day, but currently MS') { cry("whine like spoiled child."); }elsif($jobUses eq 'Java on Windows') { cry("I can live with it"); }elsif($jobUses eq 'Perl on Linux') { cry("hallelujah"); }else { cry("they have lost their way") } } if($live eq "yes") { return(findJob("let's do it again")) #recursive call }else { return($dust) } }