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