open my $error, ">", "error.txt" or die $!;
	    print $error $query;
	    close $error;