package Logger;

my $default_logger = __PACKAGE__->new();

sub new {
  my $this = bless {};
}

sub log {
   $default_logger->foo();
}

sub DESTROY {
  print "DESTROY\n";
}


package MAIN;

END {
  print "END\n";
}