package One;

sub new {
    return bless {}, shift;
}

sub foo {
    print "in One::foo\n";
}
1;