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