my $dbh=DBI->connect("DBI:mysql:database=pings;host=$host;mysql_connect_timeout=10","$user","$password") or die "$!\n";
$sth=$dbh->prepare("LOAD DATA LOCAL INFILE 'MYFIFO' INTO TABLE $table FIELDS TERMINATED BY ',' LINES TERMINATED BY '\n'") or print "$!\n".$dbh->{'mysql_error'};
$sth->execute() or print "$!\n".$dbh->{'mysql_error'};
$sth->finish() or print "$!\n".$dbh->{'mysql_error'};
$dbh->disconnect() or print "Trouble disconnecting! $!\n";


##</code><code>##

while (1) {
  if (fifo_is_ready()) {
      # Connect to database
      # LOAD DATA LOCAL INFILE 'MYFIFO' etc. etc.
      # Disconnect
   }
   else {
      sleep(2);
   }
}