#!/usr/bin/perl

use Win32::Process;

my $prog="C:\\Programme\\Internet Explorer\\iexplore.exe";
my $site="http://www.gmx.de";

Win32::Process::Create($ProcessObj,$prog,'iexplore "' . $site . '"', 0, NORMAL_PRIORITY_CLASS, ".");

##</code><code>##

        sub ErrorReport{
                print Win32::FormatMessage( Win32::GetLastError() );
        }

        Win32::Process::Create($ProcessObj,
                                "D:\\winnt35\\system32\\notepad.exe",
                                "notepad temp.txt",
                                0,
                                NORMAL_PRIORITY_CLASS,
                                ".")|| die ErrorReport();

        $ProcessObj->Suspend();
        $ProcessObj->Resume();
        $ProcessObj->Wait(INFINITE);