package HelperClass;
sub new{
  my ($class,$parent,$nr) = @_;
  my $self = {};
  bless $self,$class;
  $self->{parent} = $parent;
  $self->{nr} = $nr;
}

sub execute{
  my ($self,@params) = @_;
  $self->{parent}->execute($nr,@params);
}