Perl interface to tx