Help for this page

Select Code to Download


  1. or download this
    exit if $ans=~/^leave$/i;
  2. or download this
    exit if "leave" eq lc $ans;
  3. or download this
    my $answer = entangle(map { 1 => $_ }
    'Outlook Good',
    'Outlook Not So Good',
...
    'Reply Hazy, Try Again',
    'As I See It, Yes',
);