Select Code to Download

if ($answer=~/y/i){

...
elsif ($answer =~/n/i){
    exit
    }

{
    print "Do you want to continue([yn]): ";
...
    exit if $answer =~ /^n/i;
    redo;
}