$SIG{CHLD} = 'IGNORE'; my $child = fork(); if ( $child ) { # Parent # .... DO DB Stuff sleep 10; } elsif ( $child == 0 ) { # child for (1..100) { print " "; } ## Add in clean up stuff here maybe?? exit; }