$ans = <STDIN>;
exit 0 if $ans =~ /^[Xx]/;
