my $prog=Progamm->new();
$prog->runn();

package Programm;

sub new
{
 my $class=shift;
 #...
 bless(my $self, $class);
 #...
 $self->{dienst}=Dienst->new();
 #...
 return $self;
}

sub mach_was
{
  my $self=shift;
  my $dienst=$self->{dienst};
  #...
}