You're just missing the assignment to $self in greet():

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

Cheers,

Tim