my ($foo, $bar)       = burk('foo', 'bar');
  my ($foo, $bar, $baz) = burk('foo', 'bar', 'baz');

##</code><code>##

  my ($foo) = burk('foo');

##</code><code>##

  my $foo = burk('foo');

##</code><code>##

  my $foo = burk('foo', 'bar');

##</code><code>##

  my $foo = foo(burk());

##</code><code>##

  return @results if wantarray;
  carp("More than one value in result in scalar context for &foo")
    if @results > 1;
  return $results[0];