my $fh;
unless (open $fh, "+<".$file) {
  die "Can't open file for read/write: $file\n$!\n";
}
seek $fh, 0, 0 or die "Seek failure";

# print to file code here

close $fh;