Help for this page

Select Code to Download

Select or download this

#!/usr/local/ActivePerl-5.14/bin/perl -w
use feature 'unicode_strings';
...
    }

}

Select or download this

FFF FE 42 00 52 00 49 00 47 00 41 00 4E 00 44 00
0A 00 44 00 61 00 6D 00 6E 00 2C 00 20 00 74 00
...
6E 00 65 00 2E 00 0A 00 57 00 68 00 61 00 74 00
20 00 74 00 68 00 65 00 2E 00 2E 00 2E 00 20 00
3F 00