package Foo;
sub new {
    my ($class) = @_;
    my $self = {};
    bless $self, $class;
}

##</code><code>##

use Foo;
my $one = Foo->new;
my $second = Foo->new;