added perl script to repro