Select Code to Download

print "Delete this file?[n]: ";
chomp(my $answer=<STDIN>);
...
} elsif ($answer=~/^n|no|$/i){
        next;
} else { .....

prompt?
accept: y,n,yes,no
default: to one of the above
continue with program flow