$OLE in BEGIN und my $OLE sind zwei verschiedene Variablen; die my-Variable beginnt erst, wenn die aus BEGIN schon lange wieder tot ist. use vars qw($OLE) anstelle von my muesste in diesem Fall helfen...