Mega Code Archive

 

Categories / Perl / System Functions

 

Using exit command to exit an program

print "Please type the letter y\n"; while (<>) {     chop;     if ($_ ne 'y') {         print "Please type the letter y\n";     } else {         print "Do you always do what you're told?\n";         exit;     } }