Open file problems

Reading, deleting, writing, creating? Doing calculations?

[Richie0x]

I want to make a script that will read a file* which only contains a number. I then want to increment the number by 1, ie the number plus 1. Then I want it to delete the existing number and write the new number to the file.

* It must check if the file exists first, and if not, create one and write the number '1' to it.

Can anyone help with this, please? My knowledge of perl is extremely basic.

[VectorJ]

if (-e "/path/to/file") { 
 open (F, "/path/to/file"); 
 $number = <F>; 
 close (F); 
 $number++; 
} else { 
 $number = 1; 
} 
open (F, ">/path/to/file"); 
print F $number; 
close (F); 

[Richie0x]

Thank you :)