{
  package Blubb;

  ...

  package MAIN;
  my $b = Blubb->new;

  END {
    warn "END\n";
  }
}