use strict;

sub myMethod {
    my $self = shift;
    my ($param) = @_;
    
    if ($param) {
        print "Woohoo, you have successfully passed in a parameter ($param).\n";
    } else {
        print "You have not attempted to pass in a parameter.\n";
    }
}

my ($method, @params) = ('myMethod', 'foo');
my $object = bless {};
$object->$method(@params);