use strict;
use Win32::Process;
use Win32;

Win32::Process::Create($Win32::Process::Create::ProcessObj,
    "/my files/jim/perl monks/tkwarn.exe", # path to executable
    '',                                    # command line args
    0,                                     # Don't inherit stuff
    DETACHED_PROCESS,                      # flags for creation
    "C:/my files/jim/perl monks") or       # current dir.
die print_error();

sub print_error() {
    return Win32::FormatMessage( Win32::GetLastError() );
}

##</code><code>##

    "C:/my files/jim/perl monks/tkwarn.exe", # path to executable

##</code><code>##

    The system cannot find the file specified.

##</code><code>##

# loader - starts Perl scripts without the annoying DOS window
use strict;
use Win32;
use Win32::Process;

# Create the process object.

Win32::Process::Create($Win32::Process::Create::ProcessObj,
    'C:/perl5/bin/perl.exe',            # Whereabouts of Perl
    'perl realprogram',                 #
    0,                                  # Don't inherit.
    DETACHED_PROCESS,                   #
    ".") or                             # current dir.
die print_error();

sub print_error() {
    return Win32::FormatMessage( Win32::GetLastError() );
}

##</code><code>##

    The directory name is invalid.