in reply to if multiple arg return or single fail?

One line for two 'do stuff's? Not possible ;-). But it might look best with this design:

errorstuff if ((my ($x, $y) = mysub ($args))==1); do stuff;