open (PAGE,">$mainpath") || &Error_File("$mainpath");
print PAGE "testing";
close (PAGE);