dont print the exception stack twice
move perl interface into package