Help for this page

Select Code to Download

Select or download this

#! perl -slw
use strict;

...
    print POS substr( $accu{ $key }, 0, 66, '' ) while length $accu{ $
+key };
    print POS '';
}

Select or download this

for my $key ( @order ) {
    printf POS "%-10s %s\n", $key, substr( $accu{ $key }, 0, 55, '' );
    print POS substr( $accu{ $key }, 0, 66, '' ) while length $accu{ $
+key };
    print POS '';
}