Breaking the program after answear

[gtjj]

hello! i've started to study perl this year so im total new student in it and i would like to know how do i can break program if my resoult is "NO"

here is my code

print "Enter any number to start counting: ";
$a=0;
$b=<STDIN>;
$z;
if($b>='10000'){
print "ARE YOU FREAK?: ";
$ans=<STDIN>;
if($ans=='Yes' || $ans=='yes'){
print "okay -_-";
continue;
}
elsif($ans=='No' || $ans=='no'){
print "God Blace!\n";
exit;
}
}
print "\nStart: 0";
while($b<=>$z){
print "~", $z=++$a;
}
print "\n\n\n";
system'pause';

thanks for attantion

[Rabbit]

This thread has been closed because homework questions are not allowed on this forum.