package Foo;

sub new {
    return bless {}, shift;
}

--------

use Foo;

my $bar = new FOO();