Help for this page
@Janlen = ( '006', '007', '008', '009', '010', '011', '012', '013', '0 +14', '015', '016', '017', '018', '019', '020', '021', '022', '023', ' +024', '025', '026', '027', '028', '029', '030', '031' );
@Janlen = map { sprintf '%03d', $_ } 6 .. 31;