use Cwd;
open F, ">$mainpath" or die "Open $!\n";
print F "Testing\n" or die "Print $!\n";
close F or die "Close $!\n";
print "CWD: ", cwd(), "\n$mainpath\n";
open F, $mainpath; print while <F>; close F;