perl sucks! :D