print "Are you sure? [y]";
my $ans = <STDIN>;
if ($ans !~ /^n/i) {
   print "Yes\n";
} else {
   print "Nope\n";
}