print $fh "<$tag>$_</$tag>\n";