sub do_queries {

    $rc = get_query('t_ub92_hdr_ext_key', 'D', '20101001', '20101031');
    print "-------Query Returned is $rc\n\n\n";

    defined(my $pid = fork) or die "Cannot fork: $!";
    unless($pid) {
        print "Child process running\n\n\n";

        $rc = do_query($rc);
        if ($rc == 0) {
            print "Query Done!\n";
            print $time = localtime();
        }
        exit 0;

        print "This is the parent process(waiting!) and child ID is $pid\n\n\n";
        while (wait() != -1) {}
        do {
           my  $kid = waitpid(-1, WNOHANG);
        } while $kid > 0;

        print "Parent Process is Exiting\n";
    }
}