follow Perl5.8
Merge pull request #1 from bayashi/support_perl5.8

follow Perl5.8