print "******************************\n", "* WARNING! WARNING! WARNING! *\n", "******************************\n", "\n", "This version of Senna.pm breaks compatibility with the previous versions.\n", "You are STRONGLY advised to audit your applications prior to upgrading.\n", "\n", "Proceed ? [n] ";

$tmp = <STDIN>; chomp $tmp; if ($tmp !~ /^y(?:es)?$/) { exit 1; }