You can do this: use IO::Handle; STDERR->print("not avail\n"), exit if $sym==1 && $mac==1;.

Or even (ugly!): exit not print STDERR, "not avail" if $sym==1 && $mac==1;

or syswrite(STDERR,"not avail\n"), exit 0 if $sym==1 && $mac==1;