sub Savetofile{ 

	#open and read each line
	open(OUTFILE,">../kicks.txt")or 
	die("Cannot open file");
	flock(OUTFILE, LOCK_EX);
	print (OUTFILE "$savestr");
	flock(OUTFILE, LOCK_UN)or die("Cannot unlock file");
	close (OUTFILE) or die("Cannot close file");
}