#!/usr/bin/perl
use strict;
use Perl6::Say;
undef &Perl6::Say::say;
sub my_say {
my $this = shift;
print @_;
$this;
}
*Perl6::Say::say = \&my_say;
STDERR->say('フォォーー!!')->say('セイ')->say('セイ')->say('セイ');
こういうのは、おとなしく
package IO::HG4;するのがいいと思った。
use base qw(IO::Handle);
sub say {
my $this = shift;
print @_;
$this;
}
IO::HG4->new->say('フォォーー!!')->say('セイ')->say('セイ')->say('セイ');



![Validate my RSS feed [Valid RSS]](http://mattn.kaoriya.net/images/valid-rss.png)

