Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
    
    ...
       {
       print("\[$Character\]\[" . (ord($Character)) . "\]\n");
       }