if (! -w $savename) {
	print "uh oh\n";
}