Add set/get trans to Perl part, add a test file, call to C stuff.