You can use ReturnValue under the same terms as Perl itself.