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