Help for this page

Select Code to Download


  1. or download this
      print "What is your name? ";
  my $name = <>;
...
  my $quest = <>;
  chomp $quest;
  print "Good luck, $name! May you $quest\n";
  2. or download this
      use Continuity;
  Continuity->new->loop;
...
    my $quest = $r->param('quest');
    $r->print("Good luck, $name! May you $quest<br>");
  }