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() );
}