Help for this page

Select Code to Download

Select or download this

C:\test>type count.pl
#! perl -slw
...

say for 1 .. 1e6;

Select or download this

#! perl -slw
use strict;
...
    print "\nProcess is ", $state ? 'running' : 'suspended';
}