#!./perl @tests = split(/\n/, <