#!/usr/bin/perl
print "Are you sure? [y]";
if (<> =~ /^(y(es)?)?\n$/i) {
  # answer was yes
}
else {
  # answer was no
}