#we're starting a new subroutine
sub write_value_to_file {   
# set two variables from the values given to this function   
my ($value, $fname) = @_; 
#create a new FileHandle object  
my $fh = new FileHandle;  
# open the file name in $fname for writing, and refer to it by $fh
open ($fh, ">", $fname)   
# if opening the file failed, tell the user why and exit
  or die "unabel to write $fname($!)\N"  
#write the value, followed by a newline character, to the file
print $fh "$val\n"l   
# tell the program we're done with this file.
close $fh;     
#close the function
}