sub power
{
  return $_[0]*$_[0];
}

<include src="math">

out power 5;

<perl>

sub new
{
  my $this=shift;
  my $class=ref($this) || $this;
  my $self={};
  bless $self, $class;
  return $self;
}  

{
  my($self, $key, $value)=@_;
  $self->{$key}=$value;
}

{
  my($self, $key)=@_;
  return $self->{$key};
}

{
  my($self)=@_;
  my($key);
  foreach $key (keys %$self)
  {
    main::out "$key=$self->{$key}<br>";
  }
}

</perl>

<include src=oop1>

$bla=new blubb;

$bla->store("Alter", "34");
$bla->store("Farbe", "Grün");

$bla->all_out;
</perl>