sub get_... {
  if( /error/ ){ print STDERR "errors"; return undef }
  return [$url, $key];
}
# use it
my $ret = get_...();
if( ! defined $ret ){ print STDERR "call to get_...() has failed"; exit(1) }
my ($url, $key) = @$ret;