Help for this page

Select Code to Download

Select or download this

#! perl
use strict;
...
    return 1 if $day   < $cutoff_day;
    return 0;
}

Select or download this

20:13 >perl 601_SoPW.pl

...
Total overdue accounts: 1

 0:16 >