print "Once upon a time there was a little programmer that asked to many questions.\nToday his question was realy a stupd one.\nand so on and on...";
if ($bla eq 'test') {
  ....;
}