Help for this page
$vote = 'somefile.txt'; open (VOTE, "+>>$vote") or die "Cannot open output file: $!\n" +; ... truncate $vote, 0; # print your votes back to the file.