use strict; open ( COUNT , '; chomp $whence; close COUNT; open ( FH , "; print $line; my $count = tell FH; open ( COUNT , '>counter' ); print COUNT $count; close COUNT;