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};
  #...
}

sub mach_was
{
  my $dienst=Dienst->new();
  #...
}

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

package Dienst;

my $dienst;

sub new
{
  #...
}

sub get_Dienst
{
  $dienst=Dienst->new(@_) unless($dienst);
  return $dienst;
}

package main;

#...

sub mach_was
{
  my $dienst=Dienst::get_Dienst();

  #...
}

package Dienst;

my $singleton;

sub new {
  # ... setup
}

sub singleton { $singleton ||= shift->new(@_) }

my $dienst = Dienst->singleton(...)

package Sitescriptor::Core::Request::Httpheader;
my $me;

sub new
    {
    my $pkg = shift;
    my $Self = {};
    bless( $Self, (ref $pkg || $pkg) );
    $me = $Self;
    return $Self;
    }
sub get_obj
    {
    $me = Sitescriptor::Core::Request::Httpheader->new(@_) unless($me);
    return $me;
    }