print qq#Location: $newlocation\n\n#;
exit(0);