Fix perl usage, old syntax has gone