[HaBo]

#!/usr/bin/perl

unshift @INC, '.';

require foo;
foo -> new;

package foo;

use MooseX::Singleton;

open my $stdin, '>&', *STDERR;

has foo => (
    is          => 'ro',
    isa         => 'Any',
    default     => sub { 1 },
);

sub DEMOLISH { shift -> foo };

1;

Use of uninitialized value in concatenation (.) or string at /usr/local/lib/perl/5.10.1/Class/MOP/Package.pm line 102 during global destruction.
Use of uninitialized value in subroutine entry at /usr/local/lib/perl/5.10.1/Class/MOP/Class.pm line 526 during global destruction.

open my $stdin, '>&', *STDERR;