print "line >$line<, term >$term<\n";