print "Are you ready to proceed? [y/N]: ";
chomp(my $answer = <STDIN>);
die "Ciao!\n" if ($answer !~ /^y/i);