Help for this page

Select Code to Download

Select or download this

my $done = 0;
my $choice;
...
    $done = 1 if ( $choice eq "Q" );
  }
}