open $OUT, ">", "$filename.counts" or die "$filename.counts: $!";
print $OUT scalar localtime." open\n";
#
# code
#
print $OUT scalar localtime." close\n";
close $OUT;