## create fh
open(LOG, "$log") || die "dead on file open: $!";

  ## and jump to end
  seek(LOG, 0, 2);

  ## wait for line and match
  for (;;) {
    while (<LOG>) {

      ## SQL LOADER GOES HERE ##

    }

    ## don't want it to run away
    sleep 1;
  }

## close FH
close(LOG);