Select Code to Download

my %owner = ( );

    open (FILE,"cron.log") or die "Can't open 'cron.log -- here's why:
+  $!\n";

use IO::File;
my $fh = new IO::File("cron.log", "r") or die "Can't open 'cron.log' (
+$!)\n";
# Now use $fh in place of FILE ...

    my @split  = split /[ ]+/;
    my $split1 = $split[1] || "";
    next if ($split1 !~ /oracle|sybase/)

#!/usr/bin/perl
use strict;
...
        print "$owner - JobID:$_ - RunTime:${$owner}{$_}\n";
    };
}