Select Code to Download

#!/usr/bin/perl
use warnings;
use strict;
...

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