Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/env perl
    use warnings;
    ...
    use utf8; # source code is encoded with UTF-8
    use open qw/:std :utf8/; # make UTF-8 default encoding, incl STDIN+OUT
    use warnings FATAL => 'utf8'; # optional