open OUT, ">>$outfile" or die "Can't open $outfile for writing: $!\n";

print_hash_cvs(%jobstats);

close OUT;

exit(0);

sub print_hash_cvs {

    my (%hash) = @_;
    my ( $key, $val );
    foreach $key ( keys %hash ) {
        $val = $hash{$key};

        print OUT "$val|";
    }
    print OUT "$yesterday|$today\n";
}