perl script push test