######################################################################
+##########
#
# closeDOSParent
#
# Closes the dos prompt that created this process
#
sub closeDOSParent {
    # This just simply doesn't work.  I'm not sure why.
    return;
    return if ($opt_debug); # debugging info goes to STDOUT!
    if ($^O =~ /MSWin32/i) {
    my($process);
    my($program) = $^X;
    $orig_params =~ s/\-c\S*\b//g;
    my($pgm) = "perl $0 $orig_params";
    eval '
        use Win32::Process;
      Win32::Process::Create($process,"$program","$pgm",0,DETACHED_PRO
+CESS,".") ||
          die Win32::FormatMessage(Win32::GetLastError()) . "\n";
    ';
    exit;
    }
}