Help for this page

Select Code to Download

Select or download this

$ cat pm_1230926.pl
use strict;
...

$ perl pm_1230926.pl
Result: 0, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1