perl script works, yay