Help for this page
print $obj2->{$_} for (qw|my_method|);
while (<IN>) {
while (defined($_ = <IN>)) {