docs/testfile.pl

   1 print "Help Desk -- What Editor do you use? ";
   2 chomp($editor = <STDIN>);
   3 if ($editor =~ /emacs/i) {
   4   print "Why aren't you using vi?\n";
   5 } elsif ($editor =~ /vi/i) {
   6   print "Why aren't you using emacs?\n";
   7 } else {
   8   print "I think that's the problem\n";
   9 }
  10