#! /usr/bin/perl

use strict;
use warnings;
use DBI;

my $conn = DBI->connect("DBI:mysql:database=db;host=localhost;", "user",
 "password");
my $pid = fork;
die ("No more resources") unless (defined $pid);
my $query = "SELECT * FROM table";
my $result = $conn->prepare($query)
  or die ("Cannot prepare query. $!");
$result->execute
  or die ("Cannot execute query. $!");