opendir(DIR, $DIR) or die "Can't open $DIR: $!";
    my $SEARCH_FILE = "billing_$mday-$mon-$year";
    my @bil = grep(/$SEARCH_FILE/,readdir(DIR));
    closedir(DIR) or warn "Can't close $DIR: $!";
    if (@bil > 0)    {
        foreach my $file (@bil)    {
            my ($i, $y, $z, $a, $b) = (0, 0, 0, 0, 0);
            open (FILE, "<", $DIR.$file);
            while (<FILE> )    {
                chomp $_;
                $_=~s/\&amp;/\&/g;
                $nbligne=keys(%hash)+1;
                my @tab=split(/;/,$_);
                if ($tab[11] == 490)    {
                    next;
                }
                elsif (! $hash{$tab[0]."|".$tab[2]."|".$tab[3]."|".$tab[6]})    {
                    $hash{$tab[0]."|".$tab[2]."|".$tab[3]."|".$tab[6]}=1;
                    if (substr($tab[3],0,3) eq "DOA" or substr($tab[3],0,3) eq "DOJ" or substr($tab[3],0,3) eq "DOS" or substr($tab[3],0,3) eq "DOR" or substr($tab[3],0,3) eq "GMC" or substr($tab[3],0,3) eq "GMJ" or substr($tab[3],0,3) eq "GMB" or substr($tab[3],0,3) eq "GMD" or substr($tab[3],0,3) eq "CPV" or substr($tab[3],0,3) eq "PIN" )    {
                        $y = $y + 1;
                    }
                    else    {
                        if ($tab[5] != 0)    {
                            $i = $i + 1;
                        }
                    }
                    $z = $i + $y;
                }
            }
            if ($i == 0)    {
                print "\n__UNDEF__\n__END__";
                exit 0;
            }
            close (FILE);
            $a = sprintf '%.2d%%', ($y/$z*100);
            $b = sprintf '%.2d%%', ($i/$z*100);
            $Message = $Message . "$mday_hier/$mon_hier/$year_hier\t$y($a)\t\t$i($b)\t\t$z\n";
            print "$mday_hier/$mon_hier/$year_hier;$y;$i;$z\n";
        }
        foreach my $del (@bil)    {
            unlink $DIR.$del;
        }
    }
    # Vérification de la présence des données
    else    {
        print "\n$Err\n\n";
        print "ERROR: NO BILLING FILES\n";
        print "ERROR: __END__\n\n";
        # send email
        email_no_bil($To, $From, $Cc, $Bcc, $SubjectErr, $Message, $File);
        exit;
    }
}

sub round {
  $_[0] > 0 ? int($_[0] + .5) : -int(-$_[0] + .5)
}
 
print "number\tround\n"; 
foreach (39.62 , 39.12) { 
    printf( "%.2f\t%d\n", $_, round($_) ); 
}

if ($_[0] > 0) {
   int($_[0] + .5) 
 } 
else {
   -int(-$_[0] + .5)
}