sub func {
  my $r = shift;
  print $r->{foo}; # sollte 'bar' ausgeben.
}