#open file
#lock file
#read user input
#write user input to file
#close file

#open file
open (FILE,"</myfile");
#lock file
flock FILE,2;
#read user input
$input = <STDIN>;
#write user input to file
print FILE "$input";
#close file
close FILE;