"Premature end of script headers" happens because of use strict; and $q->("$url is {$x}x{$y}\n"),
You're using $x and $y without declaring them first.