", $filename){close $fh;$count++;return bless \$filename, $class;}carp "Can't tie $filename: $!" if">