Select Code to Download

$object->method_name($param1, $param2, $param3);

sub method_name {
    my ($self, $param1, $param2, $param3) = @_;
    ...
}