my $file = "D:/swift/file.tmp";
open (FILE, "+< $file") || die "Couldn't open $file: $!";
print FILE "Add some text";
close (FILE);