doctests for perl