package Foo {
    sub new { bless [] };

    sub msg {
        print "On my way to '%s'\n";  # name of the final method is optional
    }

    sub Berlin {
        print "I'm in Berlin!\n";
    }

    sub Paris {
        print "I'm in Paris!\n";
    }
};

my $obj = Foo->new;
$obj->Berlin();       # should go first in msg(), then in Berlin()