if ( $answer = "n" ) ##

##

if ( $answer eq "n" ) {

##

##

if ( uc($answer) eq "N" ) {

##

##

   confirm()