fglock

use strict;

my ($i, $j, $h);
my $A;
my $B;
my $C5;
my $D;
my $GROUP;
my $H;
my $N1;

fglock

use strict;

my ($i, $j, $h);
my $A;
my $B;
my $C5;
my $D;
my $GROUP;
my $H;
my $N1;

fglock

#!/bin/perl -w
# Copyright (c) 2003 Flavio Soibelmann Glock. All rights reserved.
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
#
# modified from Date::Set tests
#

use strict;
# use warnings;

fglock

#!/usr/bin/perl

use strict;
use warnings;

#use Text::CSV::Easy_PP qw(csv_parse);



{