Add restore perl script.