You're calling "greet" as a method. Therefore it's getting passed the object ($obj) as its first parameter. But in the method you're assuming that the greeting is the first parameter. It's a simple fix.

sub greet {
    my($self, $grt) = @_ ;
    return sub {
                my($subject)= @_;
                print "$grt $subject \n";
           };
}
[download]