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";
8 print "I think that's the problem\n";