#!/usr/bin/perl
use strict;
use warnings;

package Foo;


sub new {
    my ($class) = @_;
    
    return bless {}, $class;
}


sub DESTROY {
    Foo->new();
}


package main;

Foo->new ();