perl hack in bat