No need for $dummy:

sub new {
    my $class = shift;
    bless \$class, $class;
}
[download]