dumb perl callback added