my $pid = fork();
if (not defined $pid) {
   # Fork error
   ...
}
elsif (not $pid) {
   # Child process
   require DBI;  # Not "use" to load in child only.
   ...
}
else {
   # Parent process
   ...
}