Perl 5.8 stuff.
Tests.