my $cmd = "sqlldr userid=xyz/xyz@xyz control=myfile.ctl";
if( OUT, open( "$cmd|" ) ) {
    while(<OUT>) {
         if (/'error'/i) {
             print "Holy balony! The server is down Batman!";
             ...
         } else {
             print $_;
         }
         
    }
}