my $Prozess_Struktur;    

my $Aufruf_Prozesse_Struktur = Win32::Process::Create( $Prozess_Struktur,
					               "C:\\Strawberry\\perl\\bin\\perl.exe",
					               "perl D:\\PERL\\Programmierung\\Testumgebung\\Tray.pl",
					               0 ,
					               NORMAL_PRIORITY_CLASS,
					               "." ) || die ErrorReport( );

my $Prozess_Nummer_Struktur = $Prozess_Struktur -> GetProcessID( );

print "Prozess - Nr. der Struktur : $Prozess_Nummer_Struktur" , "\n";
	
# -----------------------------------------------------------------------------	
 												   
my $Prozess_SSL_Server;
													
my $Aufruf_Prozesse_SSL_Server = Win32::Process::Create( $Prozess_SSL_Server,
                                                         "C:\\Strawberry\\perl\\bin\\perl.exe",
                                                         "perl D:\\PERL\\Programmierung\\Testumgebung\\SSL_Server.pl",
                                                         0 ,
                                                         NORMAL_PRIORITY_CLASS,
                                                         "." ) || die ErrorReport( );
	
my $Prozess_Nummer_SSL_Server = $Prozess_SSL_Server -> GetProcessID( );
	
print "Prozess - Nr. der SSL - Servers : $Prozess_Nummer_SSL_Server" , "\n";				
					
$Prozess_SSL_Server -> Suspend( );
$Prozess_SSL_Server -> Resume( );
$Prozess_SSL_Server -> Wait( INFINITE );