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