my $response = doSomething ();

  sub doSomething {
    #..do something which fails
    0;
  }