Select Code to Download

use strict;
use warnings;
...
    print "$m: ", $obj->$m, "\n";
}

bar: Larry
foo: Damian