Select Code to Download

package Foo;
sub new {
...
    my $self = {};
    bless $self, $class;
}

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