Apparently working perl