#!/usr/bin/perl
use strict;
use warnings;
use Date::Manip;
use IO::File;

my @owner = qw/oracle sybase/;
my %owner = ( );

my $fh = new IO::File("cron.log") or die "Can't open 'cron.log' ($!)\n";
while(<$fh>) {
    chomp;
    my @split  = split /[ ]+/;
    my $split1 = $split[1] || "";
    next if ($split1 !~ /oracle|sybase/);
    my ($mode,$owner,$job_id,undef,undef,undef,undef,$timestamp,undef) = 
            split /[ ]+/;

#get same jobID finish timestamp and calculate difference, 
#then save back
    ${owner}{$job_id} = DateCalc (${$owner}{$job_id},$timestamp)
            if ($mode=~ /^>/);
}
close $fh;

foreach my $owner(@owner) {
    foreach (keys %owner) {
        print "$owner - JobID:$_ - RunTime:${$owner}{$_}\n";
    };
}