fix syntax error
the way it was doesn't work on some versions of perl