Programm starten und PID zurückgeben

[Akela]

Falls es jemanden interessiert, hier die Lösung

ciao Andreas

sub start_prog
  {
    my ( $cmd, $args ) = @_;

my $process;
    # Prozess starten und PID ermitteln
    my $ok = Win32::Process::Create( $process,
                                     $cmd,
                                     $args,
                                     0,
                                     DETACHED_PROCESS,
                                     '.'
                                   );
    my $rc = ( $ok == 0 ) ? $ok : $process->GetProcessID();
    return( $rc );
  }  # start_prog()