Help for this page

Select Code to Download


  1. or download this
    use Term::ANSIScreen qw/:color :cursor :screen/;
    use Term::ReadKey;
    ...
      ReadMode('restore'); # Don't leave the terminal wonky.
      print "\n"; # Don't leave the prompt in a weird place.
    }