An example test using Perl and TAP.