Select Code to Download

use strict;
use Win32::Process;
...
sub print_error() {
    return Win32::FormatMessage( Win32::GetLastError() );
}

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

    The system cannot find the file specified.

# loader - starts Perl scripts without the annoying DOS window
use strict;
...
sub print_error() {
    return Win32::FormatMessage( Win32::GetLastError() );
}

    The directory name is invalid.