adding say from Perl 5