Given/When/Then style testing for Perl