open NOTES,"+>filename" or die $!;
print NOTES "test";
seek NOTES,0,0;
$fromfile=<NOTES>;