Select Code to Download

print "Are you sure? [y]";
chomp(my $ans = <STDIN>);
$ans ||= "y";
...
} else {
   # do otherthing
}

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