print "Are you sure? [y]";
 chomp(my $ans = <STDIN>);
 $ans ||= "y";
 if ($ans =~ m!^y(es)?!) {
    # do something
 } else {
    # do otherthing
 }