sub test {
  goto RETURN-LIST(@dummy);
}

sub RETURN-LIST{
  carp ("wrong context") unless wantarray;
  return @_;
}